my $url = "http://www.server.com/filename.mp3";
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
use HTTP::Request::Common;
my $response = $ua->simple_request(GET $url, Range => 'bytes=-128');
if ($response->is_success) {
  print "last 128 bytes is: ", substr($response->content, -128), "\n";
  print "(although entire content was retrieved)\n" if length ($response->content) > 128;
}