#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;

sub retrieve_url
{
  my $ua = LWP::UserAgent->new;
  my $response = $ua->get(shift);
  if ($response->is_success)
  { return $response->content;}
  else 
  {die $response->status_line;}
}

my $var = retrieve_url('http://www.finasta.lt');

print $var;