Help for this page

Select Code to Download


  1. or download this
    package Mytest;
use strict;
...
my $var = 1;

1;
  2. or download this
    use strict;
use warnings;
use Mytest;

print $Mytest::var . "\n";
  3. or download this
    use strict;
use warnings;
use Mytest;

print $var;
  4. or download this
    use Mytest;
print $var;
  5. or download this
    use Mytest;
print $Mytest::var;
  6. or download this
    #!/usr/bin/perl -w

...
print "P3:\n";
printit($p3);
print "   (As expected, no issues at all).\n";