ho fatto le prove necessarie tramite:

codice:
use Net::SMTP;

$smtp = Net::SMTP->new(
                           Host => 'mail.inwind.it',
                           Hello => 'shishii',
                           Timeout => 30,
                           Debug   => 1,
                          );
$smtp->mail('xxxxx@inwind.it');
$smtp->to('xxxxxx@tiscalinet.it');

$smtp->data();
$smtp->datasend("messaggio di prova");
$smtp->dataend();
$smtp->quit();
exit;
ed ha funzionato perfettamente.

Quindi come pensavo il problema è nel fatto che il server di tiscali ti rifiuta la connessione. Prova con il server del provider che ti da la linea.