#!/usr/bin/perl -w

$dir="/home/jwood/files";

opendir (JDE,$dir) or die "Cannot open $dir: $!";

while ( defined ($file = readdir JDE) ) {
    next if $file =~ /^\.\.?$/;

    my $filename = "$dir/$file";
    print "$filename\n";
    open CFILE, "$filename" or die "Cannot open $file: $!";
    $line = <CFILE>;
    chomp($line);
    $address = $line;

    $line = <CFILE>;
    chomp($line);
    $subject = $line;
    print "mail -s \"$subject\" $address\n";

    `/usr/bin/mail -s "$subject" $address < $filename`;

    close(CFILE);
}
closedir(JDE);