#!/opt/local/bin/perl -w

use strict;
use CGI::Carp qw/fatalsToBrowser/;
use cgi;

my $obj = new CGI;

print $obj->header("text/plain");

my $charName = $obj->param ('charName');
my $charLevel = $obj->param ('charLevel');

print "Character name is ";
print $charName;
print "\n";
print "Character level is ";
print $charLevel;
print "\n";

open (MYFILE, '>>data.txt');
print MYFILE $charName;
close (MYFILE);