use Mail::Sendmail;

# TLRTSRMG-CapacityPlanning@thomson.com

%mail = ( To      => 'me@company.com',
          From    => 'me@company.com',
          Message => "Sorry, testing this out for emailing -- please ignore",
          Subject => "DELETE ME: Email Testing"
         );

sendmail(%mail) or die $Mail::Sendmail::error;

print "OK. Log says:\n", $Mail::Sendmail::log;