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

use strict;
use warnings;

use MyCommon qw($q check_login common_footer);

my $log_in = check_login();

print $q->start_html(-title => 'log in');
print $q->p($log_in);
common_footer();
print $q->end_html;