- or download this
#--- subfile
my $file="our_reg.pm";
print "$file: $x";
- or download this
#--- basefile
use strict;
...
do "our_req.pm";
- or download this
#--- OUTPUT
/usr/bin/perl -w /home/lanx/perl/pm/declare/our_base.pl
...
our_reg.pm: one
our_base.pl two
our_reg.pm: two