#!/usr/bin/perl -w
use strict;
use CGI ':standard';



open FH, '> data.txt' or die $!;

print FH 'testing123';

close FH;


print header(), start_html(-title => "test");

print "finished";

print end_html();