package Contact::Contact;
use base qw( Main );

#use Common; #why?
use strict; 

print "contact.pm<br />";

my $msg = Main::show_here();
print $msg."<br />";

1;
[download]

Main.pm imports the sub from Common.pm.