#!/usr/bin/perl

$fname = "foo\nbar";

#-- standard idiot-proof open
   $fname = "./$fname" if $fname =~ /^\s/;
   open F, "> $fname\0";

print F "testing 1 2 3\n";
close F;

system("cat \Q$fname\E");      # produces error

unlink $fname;