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

##</code><code>##

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