#!/usr/bin/perl -w
#
# Syntax: seconds2date [seconds] 
#
if ($ARGV[0])   { $wann = $ARGV[0]; }
else            { $wann = <STDIN>;  }
#($sek,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime $wann;
($sek,$min,$hour,$mday,$mon,$year) = gmtime $wann;
$year-= "70";
$mday--;
if ( $hour < "10") { $hour = "0" . $hour; }
if ( $min  < "10") { $min  = "0" . $min;  }
if ( $sek  < "10") { $sek  = "0" . $sek;  }
print "$hour:$min:$sek - $mday Tage $mon Monate $year Jahre\n";