my ($sec,$min,$hour,$mday,$mon,$year) =
localtime(978303600);
print "Datum: $mday.$mon.$year";