#!/usr/bin/perl -w
use CGI qw(:all);
use strict;

open(TESTFILE, ">thetestfile") || die "Cannot open $!";

close(TESTFILE);

print header;
print "DONE";