Help for this page

Select Code to Download

Select or download this

!/usr/bin/perl -w

...
    print "$$ - $c\n";
  }
}

Select or download this

#!/usr/bin/perl

...
POSIX::sigaction(&POSIX::SIGINT, $action);

print (++$counter), sleep 1 while 1