Select Code to Download

#!c:/Perl/bin/Perl.exe

...
print $q->p($log_in);
common_footer();
print $q->end_html;

package MyCommon;

...
}

1;