#!/usr/bin/perl -w

use strict;
use warnings;

my $wann = "";

$wann = $ARGV[0] || <STDIN>;

my ($sek,$min,$hour,$mday) = localtime $wann;
printf("%02i:%02i:%02i:%02i\n", $mday, $hour, $min, $sek);