# nasty.pl

use strict;
use warnings;

$| = 1;

print 'first line: ', scalar <>;

while (<>) {
  print "first loop: $_";
}

while (<STDIN>) {
  print "second loop: $_";
}

__END__