ad esempio:

codice:
use Net::SMTP;

    $smtp = Net::SMTP->new('indirizzo_server_smtp');

    $smtp->mail('utente');
    $smtp->to('destinatario');

    $smtp->data();
    $smtp->datasend("To: destinatario\n");
    $smtp->datasend("\n");
    $smtp->datasend("Subject: oggetto\n");
    $smtp->datasend("testo\n");
    $smtp->dataend();

    $smtp->quit;