#!/usr/bin/perl

use CGI ':standard';
#use CGI


my $query= new CGI;
#print $query->header;


print "Hello Workld!";

# a comment

for $i (param()) {
    print $i, ": ", param($i), "\n" ;
}

#open(my $out, ">",  "output.qif") or die "Can't open output.qif: $!";
#print $out "!Type:Cash";
#print $out "D", date();
#print $out "T", param("ammount");
#print $out "M", param("description");
#print $out "C", param("category");
#print $out "^";


print "Hello";