package Main::Contact; use base qw( Main ); use Common; #why? use strict; print "contact.pm"; my $msg = show_here(); print $msg.""; return 1;