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