Select Code to Download

#!/usr/bin/perl
use strict;
...
  print "still here...\n";
  sleep 30;
}

Terminating on signal SIGINT(2)

#!/usr/bin/perl
use strict;
...
sub handleit {
  die "I caught it.";
}