for my $cnt (0 .. 3) {
   print scalar(<DATA>);
}