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

Hello, world!

"; ok( close($fh), "Close $test_file");