use strict;
use warnings;

$SIG{INT} = sub {print "got ctrl-C in waitforctrlc\n"; exit 1;};
print "\nmy pid is $$\n";

while (1) {
   print "waiting for ctrl-C\n";
   sleep 2
}
# should never get here
print "made it past ctrl-C\n";
exit 0;