#!/usr/bin/perl
use warnings;
use CGI 'cgi';

my $cgi = new CGI;

my $relay = '';

my %input= $cgi->Vars(); 
foreach $name (keys %input){
       my $value = $input{$name};    
        $relay .= "$name=$value&";
         }

open (RT,">respgen.test");
print RT $relay;
close RT;