#!/usr/bin/perl -w 

my $newmail = "/usr/sbin/sendmail -t";
my $reply_to = "Reply-to: foo@request.com\n";
my $subject = "Subject: Confirmation of your submission\n";
my $content = "Thanks for your submission."; 
my $to = "someone@domain.com";
my $file = "subscribers.txt"; 

unless ($to) { print "Please enter all information available"; } 


open(SENDMAIL, "|$newmail") or die "Cannot open $newmail: $!"; 
print SENDMAIL $reply_to;
print SENDMAIL $subject;
print SENDMAIL $send_to;
print SENDMAIL "Content-type: text/plain\n\n";
print SENDMAIL $content;
close(SENDMAIL);