#!/usr/bin/perl
use Mail::Sender

$To = 'email1@example1.com,email2@example2.com';

$sender = new Mail::Sender {
		smtp => 'smtp.mailserver.com',
		from => 'script@somedomain.com,
		});

$Subject = 'This is a Test Email';

$sender->OpenMultipart({
		to      => "$To",
		subject => "$Subject",
		});

$Sender->Body;
$Sender->SendLineEnc("Test line 1");
$Sender->SendLineEnc("Test line 2");

$Sender->Attach({
		description     => 'Test file',
		ctype           => 'application/pdf',
		encoding        => 'Base64',
		disposition     => 'attachment;
		filename="File.pdf"; type="PDF"',
		file            => "$File",
		});

$sender->Close();
exit();