#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
use LWP::Simple;
.
.
.
my $useragent = LWP::UserAgent->new();
    my $request = HTTP::Request->new('GET',