#!/usr/bin/perl -w use strict; use warnings; use diagnostics; use CGI::Carp qw(fatalsToBrowser); use vars qw(); print "content-type: text/html \n\n"; print '';