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;