usa i minuti:

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isd st) = localtime(time);
my $totmin=($hour*60)+$min;

if ($totmin>=600 && $totmin<=750 && $wday>=1 && $wday<=5)
{print "ok lavoro!\n"}