Select Code to Download

package X;

...
1
2
3

package Y;

while(<DATA>){ print "Y:".$_ }
...
40
50
60

# main 
use lib '.';
...
print "X opened: ".X::check_data()
 ."\n"."Y opened: ".Y::check_data()
 ."\n";

X:1
X:2
...
hehh at x.pm line 7, <DATA> line 6.
Y opened: 1
Y opened: 1