#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
my $ur_1 = "http://192.168.1.12/santhoshkumar/doc.php?id=1";
$ur_1=$mech->get($ur_1);
print Dumper($ur_1);