jettero

    my $smtp = Net::SMTP->new("mail.gateway.company.com",
        Hello=>"sending-hostname.company.com", Debug=>1)
            or croak $!;

    # This is the SMTP Return path.  It's the actual return path of the
    # mail and should be real.  It's used in the accept/deny decision
    # (sometimes) and populates the return-path: header in the email.  It's
    # the MAIL FROM SMTP command.
    $smtp->mail('real-sender@company.com');