my $from_address = 'troy.koelling@colorado.edu';
my $to_address = 'troy.koelling@colorado.edu';
my $subject = '[POC] Online Application Completed';
my $message_body = "An application has been completed online.";

my $attachment = "$uploaded_file_dir/$cgi_cfn{'file'}";
my $filename = $cgi_cfn{'poc_template'};

$msg = MIME::Lite->new (
	From => $from_address,
	To => $to_address,
	Subject => $subject,
	Type =>'multipart/mixed'
) or print "Error creating multipart container: $!\n";

$msg->attach (
	Type => 'TEXT',
	Data => $message_body
) or print "Error adding the text message part: $!\n";

$msg->attach (
	Type => 'application/msword',
	Path => $attachment,
	Filename => $filename,
) or die "Error adding $attachment: $!\n";

$msg->send();