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