Help for this page
#! /usr/bin/env perl package A; ... } 1;
#! /usr/bin/env perl ... sub1(); print $var . "\n";
#! /usr/bin/env perl ... use A ':all'; print $var . "\n";