use POSIX;

while (<INPUT>) {
    $_ =~ s/<DATUM>/(?{ \&datum })/g;
}

sub datum {
    my $jetzt = strftime ("%a %b %e %H:%M:%S%Y", gmtime);
    return $jetzt;
}