#!/usr/bin/perl
use lib("../");
use Auth;

$a=new Auth;
$a->Authorize();
print "Content-type: text/html\n\n";
if(!open($o,">>joined.txt")){
   print "Error writing to file: $!";
   exit;
}
print $o $a->{username}."\n";
close($o);
print "You have been signed up for the 2006 tournament.";