Select Code to Download

#!/usr/bin/perl -wd
...
);

$msg->send;

$msg->attach(
   Type     => 'text/plain',
...
sub hashit {
   print STDERR "#";
}