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