...
my $command = q|C:\strawberry\perl\bin\perl.exe programm.pl"|;

my $input;
my $pid = open3( $input, \*OUT, \*ERROR, $command );
waitpid( $pid, &WNOHANG );
my $rc = $? >> 8;;
close $input;
my $output = do { local $/; <OUT> };

is_string( $output, $expected, "Ueberpruefe ob das Vergleichsergebnis dem erwarteten entspricht.\n>> $command << wurde aufgerufen" );

BEGIN {

$expected = <<"HERE";

Usage:
======
...