open my $pipe,'run.bat |' or die "Ooops: $!";
while (my $line=<$pipe>) {
    print $line; # <-- stupid example
}
close $pipe;