my $wday = (localtime)[6]; if($wday == 0 || $wday == 6){ #do something }