#!/usr/bin/perl
use warnings;

while(1){
#---------------------------
$sec = (localtime)[0];
$min = (localtime)[1];
$ore = (localtime)[2];
$giorno = (localtime)[3];
$mese = (localtime)[4];
$anno = (localtime)[5];
$giornosettimana = (localtime)[6];
$giornoanno = (localtime)[7];
$oralegale = (localtime)[8];
#----------------------------

$val= "$ore:$min:$sec";

	if ($val =~ /1:25:00/i) {

		print "sono le ore ke hai messo\n";

	}
	if ($val=~ /1:26:00/i) {

		print "sono le 4\n";

	}

}