Select Code to Download

package Problem_42;

...
}
...
1;

# test.pl
...
...
}

done_testing();

# 1725_Pragma.pl

...
use warnings;
use First;
use Second;

# First.pm

...
print "First\n";

1;

# Second.pm

...
print "$f\n";

1;

16:38 >perl 1725_Pragma.pl
First
...
1.41421356237309504880168872420969807857

16:38 >

16:38 >perl 1725_Pragma.pl
First
...
2

16:40 >