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

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

##</code><code>##

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