Select Code to Download

#!/usr/bin/perl

...
                -cookie=>$cookie,
                -start_html=>$title)
}

sub login_form {
        &print_header;
...
                $cgi->end_form,
                $cgi->end_html;
}