#!/usr/bin/perl use CGI qw(:all); $q = new CGI; print header; print qq( ); exit;