#!/usr/bin/perl -w
 use Win32::File;
 $counter_name="TEST SCRIPT";
 $sample_file="sample.t";
 print "Content-type:text/html\n\n";
 print "<center><font size=1>Script Name: $counter_name</font><br><br><br>\n";
 print "Attempt to write file: <b>$sample_file</b><br></center>\n";
 print "\n\n"; 

open(FH, ">$sample_file") or die(print "Cannot write to $sample_file file: $!\n");
print FH "I will print this to a file\n";
close(FH);

 print "<center><font size=1>Writing File $sample_file, complete - $counter_name</font><br><br><br></center>\n";
 print "\n\n";