#! perl -sl
use strict;
use warnings;

X::test();

{
    package X;

    $FRED = 'fred';

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

    1;
}