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