#!/usr/bin/perl
# timestamp.pl
$|++;
while(time - $^T<10){
  select undef,undef,undef, 0.1;
  if ( rand()<0.5) {
    print STDERR  time(),  " warn\n";
  } else {
    print time(), " info\n";
  }
}
__END__