#!/usr/bin/perl -w # Script Name: You Name It # Written By: You@your-domain.com # © Date: 01-14-12 # Display script errors. use CGI::Carp qw(fatalsToBrowser); # Begin the page. print "Content-type: text/html\n\n"; print qq~