while (my $read=<IN>)
{
  print "3\n";
  chomp ($read);
  #...
}