#!/usr/bin/perl -Tw use strict; use CGI qw(:all delete_all escapeHTML); $|++; exit;