#!/usr/bin/perl -w use Net::SMTP; $emailServer = '192.168.5.100'; $spamMsg = "XJS*C4JDBQADN1.NSBN3*2IDNEN*GTUBE-STANDARD-ANTI-UBE-TEST-EMAIL*C.34X\n"; $mailTo = 'kati@zold.and'; my $smtp = Net::SMTP->new($emailServer); $smtp->mail($ENV{USER}); if ($smtp->to($mailTo)) { $smtp->data(); $smtp->datasend("To: Neked\n"); $smtp->datasend("\n"); $smtp->datasend($spamMsg); $smtp->dataend(); } else { print "Error: ", $smtp->message(); } $smtp->quit;