package Getweb;
use strict;
use warnings;
use LWP::UserAgent;
our $url;
sub get_it{
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->agent('Mozilla/5.0 (X11; U; Linux x86_64; de; rv:1.9.0.13) Gecko/2009080315 Ubuntu/9.04 (jaunty) Firefox/3');

my $response = $ua->get("$url");

if ($response->is_success) {
   my $decodet = $response->decoded_content;

   $decodet =~ m~<title>(.*?)</title>~;
   my $title = "$1";
 }
 else {
     warn $response->status_line;
 }
}
1;