Select Code to Download

while ( <FOO> ) { $_ = substr($_, 0, 1024); # other stuff }

{
    local $/ = \1024;
...
}
# or
sysread FOO, $_, 1024; # keeping track of offset