Select Code to Download

open        # open a file for read or write
(
...
)
or         # if the open works it returns true so we never do the next
+ bit
diehtml()  # print an error message

$fh = "ORDERFILE";
sysopen($fh, "$outfile", O_CREAT | O_EXCL | O_RDWR, 0600)
        or diehtml("Can't open order records: $!\n");

open $fh, ">$file" or die "Can't write $file $!\n";
print $fh "here is some data\n";
close $fh;