F:\>perl -MO=Deparse tmp.pl
sub MyPackg::DBG () { 0 }
sub BEGIN {

}
our $a = 1;
package MyPackg;
'???';
print 'huhu';
tmp.pl syntax OK