use LWP::UserAgent;

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

    my  $req = HTTP::Request->new(GET => 'ftp://ftp.io.com/pub/usr/tshinnic/respons1.txt');
    $req->header(Range => sprintf("bytes=%d-%d", 256, 511) );
    my  $rsp = $ua->request($req);

    # Check the outcome of the response
    if ($rsp->is_success) {
        print $rsp->content;
    } else {
        print $rsp->status_line, "\n";
    }