package EmailSender;

use Net::SMTP;
use strict;

sub send_email {

my $username = shift;
my $body = shift;

my $smtp; #Define Scalar for Net::SMTP

#Mail Settings
$smtp = Net::SMTP->new(
			Host => 'smtp.smi.com',
		        Timeout => 30,
	                 Debug   => 1,
		);
#End Mail Settings

$smtp->mail('humanresource@smi.com');
$smtp->to($username);
$smtp->data();

$smtp->datasend("To: $username\n");
$smtp->datasend("From: humanresource\@foobar.com\n");
$smtp->datasend("Subject: Smi Employment Application\n");
$smtp->datasend("Content-Type: text/plain; charset=\"iso-8859-1\"\n");

$smtp->datasend(qq^
$body
^);

my $errormsg = $smtp->status();

$smtp->dataend();

$smtp->quit;

#return $errormsg;

}

1;