#!/usr/bin/perl

use strict;
use warnings;

use CGI qw(:all);
my $q = new CGI;

my $var1 = $q->param("var1");
my $var2 = $q->param("var2");

print $var1, "\n";
print $var2, "\n";

exit;