#!c:\perl\perl.exe -w
use strict;

my $num = 5;
$| = 1;

$SIG{ 'INT' } = \&stop;

while( $num )
{
  print "I'm waiting...\n";
  sleep 2;
}

sub stop
{
  $SIG{ 'INT' } = \&stop;
  $num--;
  print "$num\n";
}