#!/usr/bin/perl

use strict;
use warnings;

my $zeitstempel = zeit();

print $zeitstempel;

sub zeit {
    my @date = localtime(time);
    my $jahr = $date[5]+1900;
    my $monat = $date[4]+1;
    return "$jahr$monat$date[3]$date[2]$date[1]$date[0]";
}