#!/usr/bin/perl -wT
use strict;
use warnings;
use CGI ':standard';
open (LOG, "http://learneasymoney.com/logs/optin.txt") || Error('open', 'file');
print LOG "This is a test";
close (LOG);
print "Content-type: text/html\n\n";
print qq ();
print qq ( );
print qq (
);
print qq (
);
print qq (
'Hello All!');
print qq ();
sub Error {
print "Content-type: text/html\n\n";
print qq (
);
print qq (The server can't $_[0] the $_[1]
);
print qq ($!
);
print qq ();
exit;