#!/usr/bin/perl -w
use strict;
use warnings;
require 5.8.0;
use CGI;
use Data::Dumper;
my $q = CGI -> new;
print $q -> header . 'Hallo at ' . time() . '!<br>';
print '<pre>' . (Dumper $q -> param) . '</pre>';