请高手指点下

cinderellagd

  1 #!/usr/bin/perl
  2 $UID = $EUID;
  3 $GID = $EGID;
  4 $ENV{PATH} = '/usr/bin:/bin:/opt/gridengine/bin/lx26-amd64';
  5 use strict;
  6 use warnings;
  7 use Term::ANSIColor qw(:constants);
  8    $Term::ANSIColor::AUTORESET=1;
  9
10 use FindBin qw($Bin);
11 #use lib "/ifs3/solexa/data/work/hdp3/lib/";
12 use lib "$Bin/../lib";
13 use DIR_INFO;
14 use TOOLS;
15 use MACHINE;

程序用个人账号投的时候会出现以下报错，但是用属主账号的时候可以正常运行：
Insecure dependency in require while running setuid at /ifs3/solexa/data/work/hdp3/bin/wn_ck.pl line 13.
BEGIN failed--compilation aborted at /ifs3/solexa/data/work/hdp3/bin/wn_ck.pl line 13.

如果把12行注释掉，用11行的全路径，个人账号又是可运行的，请高位高手指点一下是什么问题

水平狠一般

为什么要setuid? 好像script是不允许的。如果实在要setuid，想办法把perl脚本变成exe吧