#!/perl/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(-oldstyle_urls :standard);

use ErrorModule;


my $empty;
# case 1
my $test = "test";

print header();

print "<br> This  is a test<br>";

print $test;
print $empty;

print "<form action=madetofail.pl method=get>";
print "<input type=text><input type=submit value=go>";


&app_error("test.txt","File Name that created this error: test_mod.pl");

print "after" # left  ; out to fail and to log error by ErrorModule