#!/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;
    }
}