Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print "program started \n";
while(1){sleep 1;}

use sigtrap 'handler' => \&myhand, 'INT';

...
print "program started \n";
while(1){sleep 1;}