#!/usr/bin/perl

require Mail::Send;

my $msg = Mail::Send->new;
$msg->to('ssullivan@liquidweb.com');
$msg->subject('Error creating Storm server');
my $fh = $msg->open; 
print $fh "Body of message";
$fh->close or die "couldn't send whole message: $!\n";