#!C:/Perl/bin/perl.exe -wT

	print "Content-type: text/html\n\n ";

	my $auth_file = 'auth.pl';

require "$auth_file";
&startup;
	my $action = $INPUT->param('action');

if (length($action) > 15) {
	 print "Invalid Action!  Your IP has been logged and will be investigated further."; 
    	die;  
	}  

if ($action eq "login") { &login; }
elsif ($action eq "auth") { &auth; }
elsif ($action eq "logout") { &logout; }
else { &signup; }

##</code><code>##

sub startup {

use CGI qw/:standard/;

#notice how theres no 'my' next to INPUT, so it can be global for the user.pl to use
	$INPUT = new CGI;
        use strict;

}