#--- subfile
my $file="our_reg.pm";
print "$file: $x";

##</code><code>##

#--- basefile
use strict;

my $file="our_base.pl";
$\="\n";

package one;
our $x=__PACKAGE__;

print "$file $x";

require our_req;

package two;
our $x=__PACKAGE__;

print "$file $x";

do "our_req.pm";


##</code><code>##

#--- OUTPUT
/usr/bin/perl -w /home/lanx/perl/pm/declare/our_base.pl 
our_base.pl one
our_reg.pm: one
our_base.pl two
our_reg.pm: two