sub main {

    my $cgi  = shift;   # CGI.pm object
    return if !ref $cgi;
    my $auth = new CGI::Auth({
        -cgi                    => $cgi,
        -authdir                => 'auth',
        -formaction             => "/test",
        -authfields             => [
             {id => 'user', display => 'User Name', hidden => 0, required => 1},
             {id => 'pw', display => 'Password', hidden => 1, required => 1},
            ],
                             });
    $auth->check;
}