@xtime=localtime(time);
$wday=$xtime[6];
$hours=$xtime[2];
$mins=$xtime[1];

if ($BASEBALL eq 'on'){$SIMPSONS eq 'not_on';}

if ($wday==0)&&($hours==20)&&($mins<30)&&($SIMPSONS eq 'not_on'){
     &flip_lid;
}