Select Code to Download

system("sed -e '1d' $path" . "$_[0] | more > $path" .  $_[0]);

perl -n -i.bak -e 'print if /^From/..-1' mail_file