Select Code to Download

this is main_1
this is main_2
this is main_3
This is test.pl

########## main_1.pm #############################
package main::;
sub test1{
    print "This is test1 in main_1\n";
}

main_1.pm did not return a true value at test.pl line 4.
BEGIN failed--compilation aborted at test.pl line 4.

#!/usr/bin/perl
use warnings;
...
use main_3;
print "This is test.pl\n";
&test1;

this is main_2
this is main_3
Undefined subroutine &main::test1 called at test.pl line 8.
This is test.pl

########## main_1.pm #############################
package main::main_1;
...
}
1;
##################################################

this is main_2
this is main_3
This is test.pl
This is test1 in main_1