ciao ragazzi ho scritto questo breve script che dovrebbe inviare una mail.
Non riesco a capire l\'errore qualcuno puo\' aiutarmi?
grazie.

#!/usr/local/bin/perl

use Net::SMTP;
$smtp = Net::SMTP->new(\'smtp.tiscali.it\');
print \"smtp: $smtp\\n\";
print \"User: $ENV{\'USER\'}\\n\";
$smtp->mail($ENV{\'USER\'});
$smtp->to(\'nomecognome@tiscali.it\');

$smtp->data();
$smtp->datasend(\"mesaggio di prova\");
$smtp->dataend();
$smtp->quit()

errore:

smtp:
User: cognome
Can\'t call method \"mail\" on an undefined value at invio_email.pl line 7.


ciao