perl -e 'while(<>){chomp;print "*** $_ ***\n";chdir"$_";system "mp32ogg --maxbitrate 128 *.mp3";}' #### perl -e 'while(<>){chomp;@z=`find . -name "$_"`;unlink $_ if($#z);}' < temp.txt