use LWP::UserAgent;
  use HTML::LinkExtor;
  use URI::URL;  $url =<> ;;  # for instance
  $ua = LWP::UserAgent->new;  # Set up a callback that collect image links
  my @a = (); #@imgs = (); whereever i find img i change to a for hyperlinks.
  sub callback {
     my($tag, %attr) = @_;
     return if $tag ne 'a';
    push(@a,values %attr);#push(@imgs, values %attr);
  }  # Make the parser.  Unfortunately, we don't know the base yet (it might be diffent from $url)
  $p = HTML::LinkExtor->new(\&callback);  # Request document and parse it as it arrives
  $res = $ua->request(HTTP::Request->new(GET => $url),
          sub {$p->parse($_[0])});  # Expand all image URLs to absolute ones
  my $base = $res->base;
  @a = map { $_ = url($_, $base)->abs; } @a;  # Print them out
  print join("\n", @a), "\n";
use strict;
use DBI();
my $dbh = DBI->connect("DBI:mysql:database=.....;host=mysql.serv......","xxxxxx","xxxxxx");
#$dbh->do("CREATE TABLE htmllinks (webpage VARCHAR(80) not null primary key ,links VARCHAR(80) null)");
$dbh->do("INSERT INTO htmllinks VALUES ('$base',' @a')");