use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;

my $url = 'http://cpan.uwinnipeg.ca/htdocs/libwww-perl/LWP/UserAgent.html';

my $response = $ua->get($url, Range => 'bytes=-500');

print $response->content;


##</code><code>##

use LWP::UserAgent;
use strict;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;

my $url = 'http://xx.xx.xx.xx/xx.xx.xx.xx/pbsvss.htm';

my $response = $ua->get($url, Range => 'bytes=-3500');

my @lines = split(/\n/, $response->content);
my @lastlines = @lines[-20 .. -1];
print "last lines: \n\n"; 
print @lastlines;


##</code><code>##

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/