Select Code to Download

###########################################################
# CGI::Session::Auth
...
###########################################################

###########################################################

sub _login {
    
...
}

###########################################################

sub _ipAuth {
    
...
    
    return $self->{url};
}

#!/usr/bin/perl -w

...
my $app = new testapp;
$app->run();