$msg->attach(
   Type     => 'text/plain',
   Path     => 'foo.txt',
   Filename => 'foo.txt',
   Disposition => 'attachment',
   Callback => \&hashit,
);

$msg->send;

sub hashit {
   print STDERR "#";
}