#!/usr/bin/perl
while(1){
  print "Somebody, stop me..\n";
  sleep(1);
}