my $fh; ok( open($fh, "|-", "prince - 2>/dev/null $test_file"), "Open $test_file for writing" ); print( $fh 'x' x 1024 ) or die "Print failed at $_ with $!" for 1 .. 5; ok( close($fh), "Close $test_file");