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");
####
ok 3 - Open /opt/humana/svn/checkouts/rosalind-repo/prod/tmp/testfile.pdf for writing
not ok 4 - Close /opt/humana/svn/checkouts/rosalind-repo/prod/tmp/testfile.pdf