Select Code to Download

$SIG{INT} = sub { print STDERR "*"; };

...
  sleep(1);
  print  STDERR ".";
}

.....^C*...^C*....^C*..