#!/usr/local/bin/perl -w use strict; use CGI qw/:standard :cgi-lib/; trimParameters(scalar(Vars()));