#23mar04?
perl -e '@list=<*>; foreach(@list){m/(.*)\.bmp/;$fn=$1;system("convert $fn.bmp $fn.png");}'
#12jun04 - on tux-server
perl -e 'my @drives=<hdb*>;foreach(@drives){system "mount $_"}'

#12jun04
16:51 < Me > perl -e 'print ord "-"'
16:51 < Me > 45
16:52 < Me > $ perl -e 'printf "%X", ord "-"'
16:52 < Me > 2D

#13jul04
perl -e 'my @foo=<src/*>; open BAZ, ">", "output/bar.txt"; foreach(@foo){print BAZ "$_\n";}':

# Sat Sep 18 01:32:25 EDT 2004
perl -e 'open FOO, "ping -n 15 10.1.2.3|";while(<FOO>){chomp; print "Tallyho: $_\n";}'