#!/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]";
}

sub zeit {
    my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
    $mon++;
    $year += 1900;
    my $zeitstempel = sprintf("%04d%02d%02d%02d%02d%02d", $year, $mon, $mday, $hour, $min, $sec);
    return $zeitstempel;
}