package MyCommon;

use strict;
use Exporter;
use CGI;

our (@ISA, @EXPORT_OK, $q);

@ISA = qw(Exporter);
@EXPORT_OK = qw($q check_login common_footer);

$q = CGI->new;

sub check_login {
  return "login ok";
}

sub common_footer {
  print $q->p('common footer');
}

1;