#!/usr/bin/perl
use strict;
for (1..3) {
  last unless defined (my $line = <>);
  warn " Read_three,got $line\n";
}