#!/usr/bin/perl -w
use strict;
use CGI qw/header/;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

print header();
warningsToBrowser(1);

my $i;
my $j;
open MYFILE, ">/tmp/sdfsdfdsf";
print "moo (view source)";