#! perl -slw
use strict;

my( $cmd, $timeout ) = @ARGV;

print "Running '$cmd' for $timeout seconds";

my $pid = open CMD, "$ARGV[ 0 ] |" 
	or die "'$ARGV[ 0 ] : $!";
	
print $pid;
	
sleep 1 while $timeout-- and kill 0, $pid;

my $rv = kill 9, $pid;
my @capture = <CMD>;

print "It took too long, so I killed it" if $rv;
print 'It produced the following output:';

printf $_ for @capture;