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