Select Code to Download

while (read($peunter,$bytes,1024)) {
    unless (eof()) {
...
    }
    print $bytes;
}

while (read($peunter,$bytes,1024)) {
    print $bytes;
}