I found an excellent example of making one on a site and I was able to configure it and it worked like a charm! And it uses MIME::Lite so kudos to marto! Thanks bro! CASE CLOSED! I didn't even need Sendmail for this to work! Excellent!
Below is the script I found (I modified it a bit so I could get it through my head...Original link is here http://www.bernzilla.com/item.php?id=483
=======================================================
#!/usr/bin/perl
# use MIME::Lite package
use MIME::Lite;
# set up email
$to = "toemail\@gmail.com";
$from = "fromemail\@inbox.com";
$subject = "Email Sent via Perl";
$message = "This email was sent using Perl.";
$file = "sample.txt";
# send email
email($to, $from, $subject, $message, $file);
# email function
sub email
{
# get incoming parameters
local ($to, $from, $subject, $message, $file) = @_;
# create a new message
$msg = MIME::Lite->new(
From => $from,
To => $to,
Subject => $subject,
Data => $message
);
# add the attachment
$msg->attach(
Type => "text/plain",
Path => $file,
Filename => $file,
Disposition => "attachment"
);
# send the email
MIME::Lite->send('smtp', 'smtp.yourisp.net', Timeout => 60);
$msg->send();
}
|