#!/usr/bin/perl -w

use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
$mech->get("http://ebay.com/help/policies/group-guidelines.html");
print $mech->content();
print $mech->uri();