Select Code to Download

#include <EXTERN.h>
#include <perl.h>
...
  FREETMPS;
  LEAVE;
}

#!/usr/bin/env perl
use 5.012;
say 'aaa';
sub about {
    say "bbb";
}

(gdb) set args -e "use Win32;my $c = Win32::LoadLibrary('interp.dll');
+Win32::FreeLibrary($c);"
(gdb) r
Starting program: C:\Home\Programs\perl5\perl\bin\perl.exe -e "use Win
+32;my $c = Win32::LoadLibrary('interp.dll');Win32:
...
mm7            {uint64 = 0x8000000000000000, v2_int32 = {0x0, 0x800000
+00}, v4_int16 = {0x0, 0x0, 0x0, 0x8000},
  v8_int8 = {0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x80}}
(gdb)