##
#!/usr/bin/perl -w
use strict;
my $count= 0;
my $fail= 0;
$|= 1;
while( 1 ) {
if( 0 == ++$count % 100_000 && -t STDOUT ) {
print "\r$count ";
}
if( ! eval 'my $abc = 1; $abc++; 1' ) {
print "\n$count: $@\n";
exit
if 5 < ++$fail;
}
}
##
##
This is perl, v5.10.0 built for x86_64-linux-gnu-thread-multi