use strict;
use warnings;

my $pid = open(my $fileHandler, '-|', "./test.exe" );

my $DONE = 0;
$SIG{ALRM} = sub { $DONE = 1 };
alarm 2;

while (<$fileHandler>) {
    print "$_\r"; # \r to not overrun output screen buffer
    last if ($DONE)
}

print "\nTimeout! - Time to kill pid: $pid\n"

##</code><code>##

VinsWorldcom@C:\Users\VinsWorldcom\tmp> TimeThis test.pl

TimeThis :  Command Line :  test.pl
TimeThis :    Start Time :  Fri Oct 12 13:01:09 2012

114601
Timeout! - Time to kill pid: 4700

TimeThis :  Command Line :  test.pl
TimeThis :    Start Time :  Fri Oct 12 13:01:09 2012
TimeThis :      End Time :  Fri Oct 12 13:01:12 2012
TimeThis :  Elapsed Time :  00:00:02.454