#!/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");