Select Code to Download

sub INT_handler {
...
    print("$x\n");
    sleep 1;
}

Perl\bin\perl.exe -e "$cnt = kill SIGINT, 14184; print $cnt"