#!/usr/bin/perl -w

use strict;

my $sendto = param('email');
my $sendname = param('name');

open (LOG, ">>http://learneasymoney.com/Logs/opt-in.txt") || die("Error: " . $!);
print LOG $sendname . "," . $sendto . \n;
close (LOG);