#!/usr/bin/perl -w
$|=1 ;

print "$$: $0\n" ;
$0 = 'SET_0_WORKS' ;
print "$0\n" ;

for(0..1000) {
  sleep(1);
  print ".\n" ;
}