#!/usr/bin/perl -w

use strict;
use warnings;

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