#!/usr/bin/perl

use strict;
use warnings;

use CGI;
use CGI::Carp qw(fatalsToBrowser set_message);

# set my module lib
use FindBin qw($Bin);
use lib "$Bin/perl_lib";
use Util::Std;
use Util::Std qw/:IO/;
use Date::DT_Util;
use CGI::Application;
use DBI;
use DBD::MySQL;
print "Content-type: text/html\n\n";
print "Hello, World";