#!/usr/bin/perl -w

use strict;

my $interrupted = 0;

sub handler {
        $interrupted = 1;
}

$SIG{INT} = \&handler;
print "Sleeping, feel free to interrupt (normally ^C)\n";
sleep(10);
print "Done, ";
print $interrupted ? "interrupted" : "without interruptions", ".\n";