#!/usr/local/bin/perl print "Content-Type: text/html\n\n"; $datafile = "log2file.log"; open(FILE,">$datafile") or webdie("Cannot overwrite $datafile: $!"); close FILE; print <

$datafile was written

END exit 0; sub webdie { print "\n"; print "\n"; print "

Error: $_[0]

\n"; print "\n"; print "\n"; exit 1; }