#!/usr/bin/perl -w

$file = "file.txt";
open(OUT, ">$file");
close (OUT); 

print "Content-type: text/html\n\n";