#!/usr/bin/perl

# Sicherheitsgurt anlegen
use warnings;
use strict;

$| = 1;  # print-Ausgabe sofort anzeigen

print "Geben Sie +1 oder -1 ein: ";
my $eingabe = <STDIN>;  # von Standardeingabe lesen
chomp $eingabe;         # Newline entfernen

my $x = time();

if ($eingabe eq '+1') { 
    $x += 86400; 
}
elsif ($eingabe eq '-1') { 
    $x -= 86400; 
}
else { 
    print "Falsche Eingabe\n"; 
}

my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag) = localtime($x); 
$Jahr += 1900; $Monat += 1;

print "Datum: $Jahr-$Monat-$Monatstag $Stunden:$Minuten:$Sekunden ($Wochentag, $Jahrestag)\n";