#!/usr/bin/perl
$|++;
use strict;
use CGI qw/:standard/;
my $field1 = param('field1');
my $field2 = param('field2');
# do something ...