#!/usr/bin/env perl -T
use strict;
    use WWW::Mechanize;
    my $ua = WWW::Mechanize->new();
    my $url = shift;
    $ua->get($url);
    warn;