Доброго всем дня.
Пишу следующую конструкцию
#!/usr/local/bin/perl -wT
use strict;
use IO::File;
my $file = new IO::File "/usr/local/bin/traflog -n -i lnc0 -a -o nik |" or die "Not run program traflog: $!\\n";
while(defined(my $line = <$file>))
{
chomp();
#$_ = $line;
my ($src_ip, $sport, $dst_ip, $dport, $proto, $fday, $fmonth, $fyear, $ftime, $fsize ) = split(/\\s+/);
my $year = 2000+$fyear;
my $fdate = "$year-$fmonth-$fday";
my $id;
$add -> execute( $id, $src_ip, $sport, $dst_ip, $dport, $proto, $fdate, $ftime, $fsize );
}
где строка my $file = new IO::File "/usr/local/bin/traflog -n -i lnc0 -a -o nik |" - закладывает в переменную $file выходной поток из программы traflog
При попытке запустить этот скрипт перл ругается
Insecure $ENV{PATH} while running with -T switch at ./traf_to_mysql.pl line 21.
Как можно по другому переписать данную конструкцию?