#!/usr/bin/perl
#
use strict;
my $datum;
my $zeit;
my $jahr;
my $monat;
my $tag;

# D A T U M
#==========

(my $sec,my $min,my $hour,my $mday,my $mon,my $year,my $wday,my $ydat,my $isdst)=localtime();

($jahr, $monat, $tag) = ($year+1900, $mon+1, $mday);     # Variable Skalar, dasselbe wie $a=5; $b=10; $c=15;

if(length($monat) == 1){ $monat="0$monat"; } # die Funktion length gibt die länge der Variable $monat zurück
if(length($tag) == 1)  { $tag="0$tag"; }
if(length($hour) == 1) { $hour="0$hour"; }

if(length($min) == 1)  { $min="0$min;" }
if(length($sec) == 1)  { $sec="0$sec"; }

$datum=$tag.".".$monat.".".$jahr;            # Variablen werden aneinander Konkateniert

$zeit=$hour.":".$min.":".$sec;

my $uptime;
my $timestamp;
#$uptime = `uptime`;
#$timestamp = $datum." -".$uptime;
$timestamp = $datum;

open(DADA, ">>uptime.txt");
print DADA $timestamp;
close(DADA);