#!/usr/local/bin/perl
use WWW::Robot;
use LWP::Simple;

$pred='это вы вашей над под с со &%@ или для X#$ в около тут а около еще какой to из такую такой рядом где-то то здесь вот он она они оно ты я мы';

#$rootDocument = 'http://mpak2.bestweb.ru/';
$rootDocument = 'http://www.ufabumtorg.ru/';

$robot = new WWW::Robot('NAME'=>'DataCenterSE','VERSION'=>1.000,'EMAIL'=>'rd@mail.rb.ru', 'DELAY'=>0, 'IGNORE_TEXT'=>0);

[b]$robot->addHook('follow-url-test', \&follow_test);[/b]
$robot->addHook('invoke-on-contents', \&url_hook);
$robot->run($rootDocument);

open  FW, ">../../dat/data/indexed.txt";
print FW @to_out;
close FW;

sub follow_test{
….

WWW::Robot: failed to create User Agent object: LWP::RobotUA from address required at /usr/local/lib/site_perl/5.6.1/WWW/Robot.pm line 1160

Can't call method "addHook" on an undefined value at ./robot.pl line 12.