Insecure dependency in chmod while running setuid at /var/www/cgi-bin/set-perms.pl line 13., referer: https://example.com/cgi-bin/

##</code><code>##

#!/usr/bin/perl -wT

BEGIN {
  $ENV{PATH} = "";
}

use strict;
use File::Find;
$|++;

my $baseDir  = "/var/www/test/";
my $modeFile = oct(664);
my $modeDir  = oct(2775);

sub setperms {
  chmod($modeFile, $_) if(-f $_);  <------/line 13/
  chmod($modeDir, $_)  if(-d $_);
  chown(-1, 1005, $_);
}

find(\&setperms, "$baseDir");