#!/usr/local/bin/perl

my $cmd = "runme.bat";
open (DATA,"$cmd |");
while (my $line = <DATA>) 
{
  print "got $line";
}
close (DATA);