#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper 'Dumper';
use CGI;

my $q = CGI->new();

my $var = { first  => $q->param('first'),
            second => $q->param('second'),
          };

print Dumper($var);