Select Code to Download

open(my $fh, "mahoosive_file") or die("ack - $!");
my @chunks;
...
    local $/ = \24576;
    push @chunks, $_ while <$fh>;
}

...
{
...
        seek($fh, 1, -(length($chunk) - $last_rs));
    }
}