#!/usr/local/bin/perl -w
use Time::localtime;
use strict;
my $tm;
my $es = $ARGV[0];
$tm = localtime($es);
printf("Datum: %02d:%02d:%02d-%04d/%02d/%02d\n",
$tm->hour, $tm->min, $tm->sec,
$tm->year+1900, $tm->mon+1, $tm->mday);
printf("Epoch Seconds: %12d\n",$es);
exit;

Man beachte: mon+1 und year+1900!