#!/usr/bin/perl

use Switch;

#---------------------------
$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";

	switch ($val) {
		case "0:06" { print "sono le ore ke hai messo\n"}
		case "0:05" { print "sono le 4\n"}

}