#!/usr/bin/perl
use WWW::Mechanize;

my $url = "http://172.68.1.23";
my $mech = WWW::Mechanize->new();
        $mech->get($url);
        my $title = $mech->title;
        print "$title \n";