#!/usr/bin/perl
$ajanr=time();
print "Numbrina $ajanr\n";
@ajamassiiv=localtime($ajanr);
print (($ajamassiiv[5]+1900)."-".($ajamassiiv[4]+1)."-".$ajamassiiv[3]." kell ".
      "$ajamassiiv[2]:$ajamassiiv[1]:$ajamassiiv[0].\n");


#väljund:
#Numbrina 1034257253
#2002-10-10 kell 16:40:53.

