#!/usr/bin/perl
use strict;
use warnings;
while (1) {
print "still here...\n";
sleep 30;
}
####
Terminating on signal SIGINT(2)
####
#!/usr/bin/perl
use strict;
use warnings;
$SIG{INT} = \&handleit;
while (1) {
print "still here...\n";
sleep 30;
}
sub handleit {
die "I caught it.";
}