Как отменить системный вызов в CGI.pm

У меня есть следующий CGI скрипт:

#!/usr/bin/perl -T
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:standard/;
my $query = CGI->new();
my $searchterm = param('name');

my $file = "justafile.txt";
# Begin searching terms and ignoring case
my @entries = `grep -i \"$searchterm\" $file`; # Line10
chomp @entries;
# Do something

Когда я выполняю команду, он выдает следующее

Insecure dependency in `` while running with -T switch at /foo/cgi-bin/mycode.cgi line 10.

Как можно исправить строку 10?

5
задан neversaint 22 November 2011 в 13:41
поделиться