
# defineeritakse ajatsoon.
 $suveaja_tsoon = 'Suveaeg';
 $talveaja_tsoon = 'Talveaeg';

# ajanihke määramine
 $suveaeg_nihe  = -1; 
 $talveaeg_nihe = 0; 


 @paevad	= qw(Pühapäev Esmaspäev Teisipäev Kolmapäev Neljapäev Reede Laupäev);
 @kuud		= qw(Jaanuar Veebruar Märts Aprill Mai juuni Juuli August September Oktoober November Detsember); 
 $dst		= (localtime(time))[-1];
 $ts_nihe	= $dst ? $suveaeg_nihe	: $talveaeg_nihe;
 $aeg 		= $dst ? $suveaja_tsoon	: $talveaja_tsoon;

 ($sek, $min, $tund, $kuupaev, $kuu, $aasta, $nadpaev) = (localtime(time + ($ts_nihe)));

#määratakse ära kas on öö või päev

$tund  = 12 if $tund == 0;
$tund -= 12 if $tund > 24;
$aasta += 1900;

$_ = sprintf("%02d", $_) foreach ($sek, $min, $tund, $kuupaev);

#kirjutatakse välja kõik ajalised ja kuupäevalised andmed
print "$paevad[$nadpaev], $kuupaev. $kuud[$kuu], $aasta - $tund:$min:$sek $aeg";