perl -e"sub foo:p{'foo:p'};die foo:p"
Invalid CODE attribute: p at -e line 1
BEGIN failed--compilation aborted at -e line 1.