##
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;
##
##
http://localhost/cgi-bin/rpt.pl?dataname=ASRHOUR
##
##
http://localhost/cgi-bin/rpt.pl?dataname=ASRHOUR