Select Code to Download

    perl512.dll!Perl_safesysrealloc(void * where=0x018612ac, unsigned 
+int size=44)  Line 199 + 0x9    C
     perl512.dll!Perl_sv_grow(interpreter * my_perl=0x00353d7c, sv * c
+onst sv=0x003578ec, unsigned int newlen=28)  Line 1555 + 0xd    C
     perl512.dll!Perl_sv_catpvn_flags(interpreter * my_perl=0x00353d7c
+, sv * const dsv=0x003578ec, const char * sstr=0x2821454c, const unsi
+gned int slen=25, const long flags=2)  Line 4780 + 0x2c    C
...
     perl512.dll!win32_ctrlhandler(unsigned long dwCtrlType=0)  Line 4
+689 + 0xb    C
     kernel32.dll!_CtrlRoutine@4()  + 0x19c    
     kernel32.dll!_BaseThreadStart@8()  + 0x37

     ntdll.dll!_DbgPrint()     
     ntdll.dll!_RtlDebugFreeHeap@12()  + 0x97    
...
     perl.exe!main(int argc=2, char * * argv=0x00243ec8, char * * env=
+0x00242c58)  Line 23 + 0x12    C
     perl.exe!mainCRTStartup()  Line 398 + 0xe    C
     kernel32.dll!_BaseProcessStart@4()  + 0x23

C:\Documents and Settings\Owner\Desktop\w32i>perl -v

...
    C:/perl512/site/lib
    C:/perl512/lib
    .

#!/usr/bin/perl -w
use strict;
...
    $found++;
}
say "Found $found primes between 1 and ", TOP, ".\n";

C:\Documents and Settings\Owner\Desktop>perl -MO=Deparse n8.pl
BEGIN { $^W = 1; }
...
n8.pl syntax OK

C:\Documents and Settings\Owner\Desktop>

$SIG{INT} = sub {
    print "ctrl c hit\n";
    exit();
};

#!/usr/bin/perl -w
use strict;
...
    $found++;
}
say "Found $found primes between 1 and ", TOP, ".\n";

3557 is prime.
3559 is prime.
Terminating on signal SIGINT(2)

C:\Documents and Settings\Owner\Desktop>