use strict;
use File::Glob ':glob';
use DBI;
use JSON;
use POSIX qw(strftime);
use POSIX ":sys_wait_h";
use warnings;
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
use Data::Dumper;

my $query = CGI->new;
my $reportname = $query->param('dataname');
print $query->header;
print Dumper $query;