if (($ENV{QUERY_STRING} eq "new") && (-e $file)){unlink($file);}