(Is this a LWP problem?

[Roy Nasser]

Hi,

Here is my code, i am trying to use a hash from a required file but i am not
getting access...

FILE: meta
<cut>
#!/usr/bin/perl -w

print "Content-type: text/html\n\n";

package myPUA;

use Exporter();
use LWP::Parallel::UserAgent;
@ISA = qw(LWP::Parallel::UserAgent Exporter);
@EXPORT = @LWP::Parallel::UserAgent::EXPORT_OK;

sub on_connect {
my ($self, $request, $response, $entry) = @_;
}

sub on_failure {
my ($self, $request, $response, $entry) = @_;

}

{
 $first = 1;
 sub on_return {
  my ($self, $request, $response, $entry) = @_;
  if ($response->is_success) {
   $content = $response->content;
   main::handle_answer($content,$response);
   $first++;
  }
   return;
 }
}

package main;
use HTTP::Request;
use URI;


my %URL = ();
my %NAME = ();
my %REGEX = ();
my %REG_URL = ();
my %REG_TIT = ();
my %REG_DES = ();
my %RESULTS = ();
my %SHORT_ID = ();
my %RETURNED_URLS = ();
my %DONE = ();
my %REGSPLIT = ();
my %in = ();
my $reqs = "";
my $current = "";
my $req = "";
my $re = "";
my $nores = "";
my $CURRENT_URL = "";
my $CURRENT_CONTENT = "";
my $CURRENT_ID = "";

$| = 1;

&ReadParse;
&InitEngines;
require "mb1.br.edf";
print $URL{YahooBrasil};
</cut>

FILE: mb1.br.edf
<cut>
#!/usr/bin/perl



 $URL{"YahooBrasil"} =
"http://br.busca.yahoo.com/search/br?p=$main::in{pl}&n=".($main::in{me} +
5);
 $NAME{"YahooBrasil"} = "Yahoo Brasil!";
 $REGEX{"YahooBrasil"} = "<A HREF=\"(.*?)\">(.*?)</A>\n - (.*?)<";
 $REGSPLIT{"YahooBrasil"} = "LI>";
 $REG_URL{"YahooBrasil"} = 1;
 $REG_TIT{"YahooBrasil"} = 2;
 $REG_DES{"YahooBrasil"} = 3;

$SHORT_ID{"http://br.busca.yahoo.com/search/br?p=$main::in{pl}&n=".($main::i
n{me} + 5)} = "YahooBrasil";

1;
</cut>




Roy Nasser ([EMAIL PROTECTED])
Diretor T�cnico
http://Vem.ca/
+55-11-3347-3011
+55-11-9953-8853 (Cel.)
+55-11-211-0889 (Fax.)