Select Code to Download

my $got_lock;
use Fcntl;   # to get constants for O_CREAT | O_EXCL | O_RDWR
...
    sleep 2;
}
diehtml("Lock error $!\n") unless $got_lock;

open(ORDERFILE, ">$outfile")
        or diehtml("Can't open order records: $!\n");

sysopen($fh, "$dir/$name", O_CREAT | O_EXCL | O_RDWR, 0600);

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