use Getopt::Long;
use Data::Dumper;
use List::Util qw[min max];
use POSIX;
use Cwd 'abs_path';
use Date::Parse;
use Date::Format;


print "Hello World\n";

##</code><code>##

Prototype mismatch: sub main::strftime: none vs ($\@;$) at /pkgs/perl/5.14.1/lib64/5.14.1/Exporter.pm line 67.
 at ./trial.pl line 9
Prototype mismatch: sub main::ctime: none vs ($;$) at /pkgs/perl/5.14.1/lib64/5.14.1/Exporter.pm line 67.
 at ./trial.pl line 9
Prototype mismatch: sub main::asctime: none vs (\@;$) at /pkgs/perl/5.14.1/lib64/5.14.1/Exporter.pm line 67.
 at ./trial.pl line 9
Hello World