Invio E-mail

[doppiadi]

ciao shishii
purtroppo mi da questo errore:

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

codice:

#!/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('xxxxxxxxxxx@tiscali.it');

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

soluzioni??

grazie
ciao