#   Failed test 'Ueberpruefe ob das Vergleichsergebnis dem erwarteten entspricht.
# >> C:\strawberry\perl\bin\perl.exe programm.pl" << wurde aufgerufen'
#   at t\a.t line 42.
#          got: "\x{0d}\x{0a}Usage:\x{0d}\x{0a}======\x{0d}\x{0a}  Parameters:\x{0d}\x{0a}    -e <File1>   "...
#       length: 2859
#     expected: "\x{0a}Usage:\x{0a}======\x{0a}  Parameters:\x{0a}    -e <File1>       "...
#       length: 2761
#     strings begin to differ at char 1

sub usage {
  print "\nUsage:\n";
  print "======\n";
...

...
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:
======
...