!usr/bin/perl

use Time::Localtime;

$a=0; print"Geben Sie +1 oder -1 ein\n"; $a = ;

$x = time;

if($a == +1) {$b = $x+86400;}

elsif($a == -1) {$b = $x-86400;}

else { print "Falsche Eingabe\n";}

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

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