http://www.perlmonks.org?node_id=988245


in reply to How can I get the current OP address (akin to PC)?

Maybe something like this:
#!/usr/bin/perl -l BEGIN { $| = 1; } use autodie; use common::sense; use Opcode; use Opcodes qw/ppaddr opdesc/; my $ppaddr = &Opcodes::ppaddr(0); print $ppaddr; my $opdesc = &Opcodes::opdesc(0); print $opdesc;