tina@lugosi:~$ perl -MO=Deparse -e' sub BLA { 23 } print BLA'
sub BLA {
    23;
}
print BLA();
-e syntax OK
tina@lugosi:~$ perl -MO=Deparse -e' sub BLA() { 23 } print BLA'
sub BLA () { 23 }
print 23;
-e syntax OK