=================================== 
#!/usr/bin/perl -w 
use strict; 
print STDERR "Begin...\n"; 
for ( my $i = 0; $i < 5; $i++ ) 
{ 
  print STDERR "$i...\n"; sleep 2; 
} ===================================