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";
Casiano Rodríguez León