{
 local $/ = \10240;
 print while <$peunter>;
}