#!/usr/local/bin/perl
$| = 1;
print "Content-type: text/html\n\n";



        $Mailer = "/usr/sbin/sendmail -t";
        open MAIL, "|$Mailer" or die "Cannot open $sendmail: $!";

        print MAIL "From: foobar\@foobar.com\n";
        print MAIL "To: sthielke\@u.washington.edu\n";
        print MAIL "Content-Type: text/plain\n";
        print MAIL "Subject: Oh this is a good one\n\n";

        print MAIL "Here is a test out function\n";
        
        open (TEXTLIST, "messagetext.txt");
        
       
print "Sent mail from $fromadd to $toadd about $subj\n\n";
        
        close (MAIL);