my $fh; ok( open($fh, "|-", "prince - 2>/dev/null $test_file"), "Open $test_file for writing" ); print $fh "