!#c:\perl\bin print "Content-type: text/html\n\n"; $thisline = "asdf 9045"; open(MYFILE, ">c:/personnel.dat")|| die print "Error encountered opening file ... $!"; print MYFILE "$thisline"; close(MYFILE); print "Data has been written ..."