Select Code to Download

 package PerlWebmail::Message;
use base qw(Mail::Internet);

...
}

1;

sub mailer
    {
...
die "Error sending email: $@" if $@;
return retrieve_message($r);
      }