#! perl -sl

{
    package X;

    $FRED = 'fred';

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

    1;
}

use strict;
use warnings;

X::test();