#!/usr/bin/perl 

use strict;
use warnings;
use CGI; 
use CGI::Carp qw ( fatalsToBrowser ); 
use File::Basename; 

my $query = new CGI;

open TEST, ">>", "test/params.txt" or die $!;
$query->save( \*TEST );
close TEST;