Untitled Document

#!/usr/bin/perl -w
#use strict;
use CGI qw(:all);
print "Content-type: text/html\n\n";
#initialising all strict variables and CGIPM
$q = new CGI;
$email = $q->param("email");
$mailprog = '/usr/sbin/sendmail -t -i';
$mailtoaddress = "steve\@w72.com.au";&send_mail;

print <<END<html>
<head>
<title>Infallible Online</title>
<meta http-equiv="REFRESH" content="0;url=http://www.infallible.com.au/index.html">
</head>
<body></body>
</html>

END
;
sub send_mail {
# Open The Mail Program
open(MAIL,"|$mailprog");
print MAIL "To: $mailtoaddress\n";
print MAIL "From: steve\@w72.com.au\n"; print MAIL "Subject: Infallible Mailing List\n\n"; print MAIL "Infallible Online Mailing List\n";

print MAIL "-----------------------------------------------------------------------\n";

print MAIL "EMAIL ADDRESS: $email\n";

close (MAIL);
}