use Net::SMTP; $smtp = Net::SMTP->new('pop.myserver.com); $smtp->auth('myusername', 'mypassword'); $smtp->mail('from@emailaddress.com'); $smtp->to('to@emailaddress.com'); $smtp->data(); $smtp->datasend("Subject: test smtp\n"); $smtp->datasend("test\n"); $smtp->dataend(); $smtp->quit;