Uso de MailTools

lhp@nereida:~/Lperl/src/perl_networking/ch7$ cat -n mailtools_ex.pl
 1  #!/usr/bin/perl
 2  use strict;
 3  use Mail::Internet;
 4
 5  my $head = Mail::Header->new;
 6  $head->add(From => 'zutano <zutano@pcg.universidad.es>');
 7  $head->add(To   => 'zutano <zutano@universidad.es>');
 8  $head->add(Cc   => 'pp2@nereida.deioc.universidad.es');
 9  $head->add(Subject => 'ejemplo de mailtools');
10
11  my $body = <<END;
12  Un ejemplo para PP2
13
14  Saludos,
15
16  Casio
17  END
18
19  my $mail = Mail::Internet->new(Header => $head,
20                              Body   => [$body],
21                              Modify => 1);
22  $mail->send('sendmail') or die "can't send message\n";