my $cmd = "your command";
   my $pid = open(my $fh, "$cmd|");
   $SIG{ALRM} = sub {
     print "Alarm fired, killing pid $pid\n";
     # Replace with windows-specific code to kill process
     kill 15, $pid;
   };
   die "Can't run command [$cmd] : $!" unless $pid;

   # Or do some other processing with $fh
   push @result, $_ while (<$fh>);
   close $fh
     or die "Problem running [$cmd] : $?";