#!/usr/bin/perl -w
###$ARGV[0] ruft den uebergebenen wert auf
print "$ARGV[0]\n";

#Aktuelles Datum holen
($day, $month, $year) = (localtime)[3,4,5];

#Datum in Format TT.MM.YY umwandeln und in $Datum speichern
$year = sprintf("%02d", $year % 100);
$month += 1;
$month = sprintf("%02d",$month);
#Tag mit dem wert abziehen der uebergeben wird
$day -= $ARGV[0];
$datum = "$day.$month.$year";
print "$datum \n";