#!/perl/perl.exe -w
use strict;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);

&main();

sub main{
    trimParameters($CGI::Q);
    print header(), p('Done');
}

sub trimParameters{
    my $q = shift;
    foreach ( $q->param() ){ #####
	if ($q->param($_)) {
	    $q->param($_,trim($q->param($_)));
	}
    }
}

sub trim{
    my ($v) = @_;
    $v =~ s/^\s*(.*?)\s*$/$1/s;
    return $v;
}