Что-то не хочет работать :( ^file::exec .. $.status ошибка 254

Aaron 22.04.2010 02:24

Создал crawl.pl, залил в cgi-bin, дал права 755
[#!/usr/bin/perl

use LWP::UserAgent;
my $max_size = 1024; # размер в байтах
my $field_name = $ARGV[0]; # URL

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new('GET' => $field_name);
#$ua->max_size($max_size);
my $res = $ua->request($req, \&callback, 1024);
my $size = 0;
my $res_content;

sub callback {
my($data, $response, $protocol) = @_;
$size = $size + length($data);
$res_content .= $data;
if($size >= $max_size) { die; }
}

print $res_content; # файл]

На страничке:

$f[^file::exec[/../cgi-bin/crawl.pl;;http://yandex.ru]]
$f.status $f.stderr
$f.text

Пишет только 254 (т.е $f.status)
$f.stderr и $f.text пустые

из ssh работает и отдаёт заветный хтмл:

[user]$ perl crawl.pl http://yandex.ru

Куда копать?

---