sub email {

my $emailverify = shift;

print ("(1) MICROSOFT ACCESS");

my $input = <STDIN>;
$input = <STDIN> until defined $input;
chop ($input);

if ( $input == 1 ) {

# SENDS MS ACCESS FILE

my $from          = 'email@system.com;
my $your_file     = 'file.mdb';
my $my_file       = 'file.mdb';
my $mime_type     = 'multipart/mixed';
my $mail_server   = 'mail.test.com';
my $to            = $emailverify;

my $msgone    = "Dear $emailverify Your Files are Attached";

# CREATE MESSAGE

my $msg = MIME::Lite->new(
			From    => $from,
			To      => $to,
			Type    => $mime_type,			
			Subject => 'Files Attached',
);

# CREATE ATTACHMENT

$msg->attach(
        Type     => 'TEXT',
        Data     => "$msgone"
);

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

MIME::Lite->send('smtp', $mail_server, Timeout=>60);

$msg->send or die "Couldn't Send $!";