#!/usr/bin/perl
print "Form Mailer 0.1\n";
print "Where's your data file?\n";
$datafile=<>;
print "What's the subject of your message?\n";
$subject=<>;
print "Who do you want the message to be from? (your e-mail)\n";
$from=<>;
print "Where's the message located?\n";
$messageloc= <>;
chomp($from,$messageloc,$datafile);
open MESSAGE,"<$messageloc";
$messagebody=join '', <MESSAGE>;
close MESSAGE;
open DATA, "<$datafile";
$header=<DATA>;
chomp $header;
@header=split(/\|/,$header);
while($line=<DATA>){
    chomp $line;
   @linesplit=split(/\|/,$line);
    for(my $i=0; $i<@header; $i++){
        $header{$header[$i]}=$linesplit[$i];
    }
    $message=$messagebody;
    foreach(keys %header){
        print "key $_ => $header{$_}\n";
        $message=~s/$_/$header{$_}/g;
    }
    open(MAIL, "|/usr/lib/sendmail -oem -t -oi");
    print MAIL "From: $from\n";
    print MAIL "To: $header{EMAIL}\n";
    print MAIL "Subject: $subject\n\n";
    print MAIL "$message\n";
    close MAIL;
}
close DATA;
[download]