Select Code to Download

C:\>perl -MO=Deparse,-q
print "A $a->meth or $ref->() or $obj->$meth B";
...
- syntax OK
Terminating on signal SIGINT(2)