That approach didn't occur to me.

Take a look at the embedded package in the OP code.

I'm saying that coded this way:

#! perl -sl
use strict;
use warnings;

X::test();

{
    package X;

    $FRED = 'fred';

    sub test {
        print 'This is package:', __PACKAGE__;
    }

    1;
}
[download]

The strict & warnings affect that embedded package:

C:\test>perl -c test.pl
Global symbol "$FRED" requires explicit package name at test.pl line 1
+0.
test.pl had compilation errors.
[download]

But coded this way:

#! perl -sl

{
    package X;

    $FRED = 'fred';

    sub test {
        print 'This is package:', __PACKAGE__;
    }

    1;
}

use strict;
use warnings;

X::test();
[download]

They do not:

C:\test>perl -c test.pl
test.pl syntax OK
[download]

---

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)

In the absence of evidence, opinion is indistinguishable from prejudice.