sub get_long_at {
  my $addr=shift;
  printf "get_long_at(0x%x)\n", $addr;
  my $data=unpack("P4", $addr);
  printf "Got it\n";
  return unpack("L", $data);
}


##</code><code>##

MSVCRT! 77c4337c()
PERL58! Perl_sv_setpvn + 149 bytes
PERL58! Perl_unpackstring + 2264 bytes
PERL58! Perl_unpackstring + 58 bytes
PERL58! Perl_unpackstring + 10147 bytes
PERL58! Perl_runops_standard + 12 bytes
PERL58! RunPerl + 134 bytes
PERL! 00401012()
KERNEL32! GetCurrentDirectoryW + 68 bytes