#!/usr/bin/perl -w

use CGI qw/:standard :html2/;
use CGI::Carp qw/fatalsToBrowser/;


my $q;
$q = new CGI;
my $dir = $q->param('dir');

chomp $dir;

print header("text/html"),start_html({-title=>"Statistik"});

print ">>>>>$dir<<<<<\n";

print "HUHU\n";
print end_html();