12345678
#!/usr/bin/perl -wuse strict;use warnings;my $wann = time;my ($sek,$min,$hour,$mday) = localtime $wann;printf("%02i:%02i:%02i:%02i\n", $mday, $hour, $min, $sek);