#!/usr/bin/perl

use strict;
use CGI qw(param header);
use Data::Dumper;

my @params = qw(main);
my $hash = {"file"=>shift(@params),"text"=>param("lite"),"session"=>param("session")};

print header;
print Dumper $hash;