#!/usr/pkg/bin/perl # Patenttiosasto asentaa use Time::Local; sub lz { my $an=$_[0]; if (length($an)==1) { $an="0".$an; } return $an; } sub headeri { print "Content-type: text/html\n\n"; } sub sisalto { $oikea=&lz($hour).":".&lz($min); if (($min==4) and ($hour==23)) { $status='

It IS 23:04!

'; } else { $status='

It is NOT 23:04!

'; } print < Is it 23:04?
23:04
$status
END } # Ja sitten pistetään sivu läjään... ($sec, $min, $hour, $mday, $mon, $year, $wday)=(localtime(time))[0..6]; headeri; sisalto;