#!/usr/bin/perl

use warnings;
use strict;

my $url = "(removed)";

use CGI::Carp qw(fatalsToBrowser);

use CGI qw/:standard/;

use lib "/home/name/public_html/lib/";
    use WWW::Mechanize;
    my $mech = WWW::Mechanize->new();

    $mech->get( $url );


print header, start_html();

print $mech->links;

##</code><code>##

WWW::Mechanize::Link=ARRAY(0xa430d5c)WWW::Mechanize::Link=ARRAY(0xa442a70)WWW::Mechanize::Link=ARRAY(0xa448fe4)WWW::Mechanize::Link=ARRAY(0xa448f00)WWW::Mechanize::Link=ARRAY(0xa444f24)WWW::Mechanize::Link=ARRAY(0xa4445e0)WWW::Mechanize::Link=ARRAY(0xa442c5c)WWW::Mechanize::Link=ARRAY(0xa4446c4)WWW::Mechanize::Link=ARRAY(0xa444f00)WWW::Mechanize::Link=ARRAY(0xa44c7a0)WWW::Mechanize::Link=ARRAY(0xa448fa8)WWW::Mechanize::Link=ARRAY(0xa4450c8)WWW::Mechanize::Link=ARRAY(0xa444670)WWW::Mechanize::Link=ARRAY(0xa449f44)WWW::Mechanize::Link=ARRAY(0xa444784)WWW::Mechanize::Link=ARRAY(0xa44d31c)WWW::Mechanize::Link=ARRAY(0xa449efc)WWW::Mechanize::Link=ARRAY(0xa44a004)WWW::Mechanize::Link=ARRAY(0xa44e664)WWW::Mechanize::Link=ARRAY(0xa4490f8)WWW::Mechanize::Link=ARRAY(0xa449f80)WWW::Mechanize::Link=ARRAY(0xa44d664)WWW::Mechanize::Link=ARRAY(0xa449c5c)WWW::Mechanize::Link=ARRAY(0xa449ef0)WWW::Mechanize::Link=ARRAY(0xa44e6e8)WWW::Mechanize::Link=ARRAY(0xa451b98)WWW::Mechanize::Link=ARRAY(0xa44d574)WWW::Mechanize::Link=ARRAY(0xa449d1c)WWW::Mechanize::Link=ARRAY(0xa4491a0)WWW::Mechanize::Link=ARRAY(0xa452c70)