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

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