use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
my %form = ();
print header;
print title("Get Form");
print start_html();
print start_form(-method=>'GET',-action=>"abc.cgi?tarun=7&varun=8");
foreach my $p (param()) {
    print "$p<br>\n";
    $form{$p} = param($p);
    print "$p = $form{$p}<br>\n";
}
print submit;
print end_form;
print end_html;