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