#!perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);
use crs;
print "Content-type: text/html\n\n";

my $crs = crs -> new();
print $crs->datum("tag").".".$crs->datum("monat").".".$crs->datum("jahr");