Check out perl -h or perlrun and read up on some of the neat switches that are available on the command line e.g.

perl -lne 'chomp; print "*** $_ ***"; chdir "$_";
           system "mp32ogg --maxbitrate 128 *.mp3"'
[download]

The -n sticks a while(<>){ } around the code and -l (by default) sets $\ to $/.
HTH

broquaint