#!/usr/bin/perl

print "Content-Type: text/html\r\n\r\nHello, world!\n";
open MYFILE, ">/home8/basedxco/public_html/TESTFILE" or die $!;



print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
print MYFILE "this is a test!!!!";
close(MYFILE);