#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;

my $field1 = param( 'field1' );
my $field2 = param( 'field2' );