Linux - Perl-5.8.0 ; Perl-5.8.1 ; Perl-5.8.3

##</code><code>##

  $|=1 ;

  print "$0\n" ;
  $0 = 'SET_0_WORKS' ;
  print "$0\n" ;
   
  for(0..1000) {
    sleep(1);
    print ".\n" ;
  }