if ($pathslashed=~m{/(\d+)k}) {
push @list,"-cache",60*$1/8,"-cache-min",45;
}
+ push @list,@ARGV;
push @list,$stream;
warn Dumper(\@list);
#system $mplayer @list;
- do { die "[$&] <$_>" if m{[^-a-zA-Z 0-9/:.@]}; } for @list;
+ do { die "[$&] <$_>" if m{[^-a-zA-Z 0-9/:.@=]}; } for @list;
system {"bash"} "bash","-c",join(" ",@list);
exit 0 if $?;
}