#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

my $sendto   = param('email');
my $sendname = param('fullname');
#my $logfile = 'http://learneasymoney.com/Logs/opt-in.txt';
my $logfile = '/tmp/opt-in.txt';

my $msg;
if ( open LOG, '>>',$logfile ) {
  print LOG "$sendname,$sendto\n";
  close (LOG);
  $msg = "$sendname $sendto written to $logfile";
} else {
  $msg = "File open Error: ".$!;
}

print header(),start_html()
,p($msg) 
,a({-href=>'easy.html'},'return')
,end_html();