prompt > perl -MO=Deparse test.pl
my $a = &foo();
print $a;
sub foo {
    return 'foo';
}
test.pl syntax OK
prompt >