#!/usr/bin/perl

use strict;
use warnings;

print get_date( '1183020463593' );

sub get_date{
    my ($time) = @_;
    my ($sec,$min,$hour,$day,$month,$year) = (localtime $time)[0..5];
    return sprintf "%02d.%02d.%04d %02d:%02d:%02d", $day, $month+1, $year+1900, $hour, $min,$sec;
}