Select Code to Download

 /public_html/---+   
    |            |
...
                        |
                    Contact.pm

#!/usr/local/bin/perl
use lib "/usr/home/bradcathey/applications/";
...

use Contact::Contact;
print "done<br />";

#!/usr/bin/perl

...
print "Content-type: text/html\n\n";
print "main.pm<br />";
1;

package Common;
use strict;
...
   return "thanks for contacting us";
}
1;

package Main::Contact;
use base qw( Main );
...
print $msg."<br />";

return 1;

main.pm
contact.pm
common.pm
thanks for contacting us
done