#!/usr/bin/perl
use strict;
use warnings;

my $time = 1183021696;

my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) =
    localtime( $time );
$mon  += 1;
$year += 1900;

printf "%s.%s.%s %s.%s.%s\n", $mday, $mon, $year, $hour, $min, $sec;
print  scalar localtime($time), "\n";