#!/usr/bin/perl print "Content-type:text/html\n\n"; $filename = 'data.txt'; open(myfile,">$filename"); close(myfile); print 'Create ok';