echo $HOME/Mail/* | perl -e 'while (<STDIN>) { s/sent-mail//; print "$_"}'