Select Code to Download

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

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

sub startup {

...
        use strict;

}