Select Code to Download

#!/usr/bin/perl
use strict;
...
# send the message
use Email::Sender::Simple qw(sendmail);
sendmail($message);

#!/usr/bin/perl

...
}

close $in or die "$in: $!";

Trace begun at C:\strawberry\perl\site\lib\Email\Sender\Transport\SMTP
+.pm line 9
6
...
ne 18
Sub::Exporter::Util::__ANON__('Email::MIME=HASH(0x1d4127c)') called at
+ bebe1.pl
line 35