##

#!/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;

##

##

Filename=Cristina_Aguilera.jpg
Filedata=Cristina_Aguilera.jpg
Upload=Submit%20Query
=
Filename=Charlizetheron_3.jpg
Filedata=Charlizetheron_3.jpg
Upload=Submit%20Query
=
Filename=Nelly_Furtado.jpg
Filedata=Nelly_Furtado.jpg
Upload=Submit%20Query
=
Filename=Fergie.jpg
Filedata=Fergie.jpg
Upload=Submit%20Query

Multiple File Uploader: