Help for this page

Select Code to Download

Select or download this

if (-e $file) {
        open(FH,">","$file") or die $!;
}

Select or download this

use Fcntl;

sysopen(FH, $file, O_WRONLY|O_TRUNC|O_CREAT, 0600)
        or die $!;