#!/usr/bin/perl -w

use strict;
use Net::SMTP;

my $mailserver      = "mailserver.yourisp.com";

my $mailfrom = "From: \"Big Company\" <big_company\@domain.com>\n";
my $mailto   = "To: \"Joe Blogs\" <joe_bloggs\@clients.com>\n";

my $subject = "Blah, blah, blah";

foreach $infile (@ARGV) {

        if(!open MESSAGE, "<$infile") {
                print STDERR "Couldn't open $infile: $!\n";
                next;
        }
        my $message;

        my $smtp = Net::SMTP->new($mailserver);

        my $mailfrom = $1 if($displaymailfrom =~ /^[^<]*<([^>]+)>/);
        my $mailto   = $1 if($displaymailto   =~ /^[^<]*<([^>]+)>/);

        $smtp->mail($mailfrom);
        $smtp->to($mailto);

        $smtp->data();
        $smtp->datasend($subject);

        $smtp->datasend($displaymailfrom);
        $smtp->datasend($displaymailto);

        while(<MESSAGE>) {
                $smtp->datasend($_);
        }
        $smtp->dataend();
        $smtp->quit;


        close MESSAGE;
}