Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. Read three lines of text from standard input
#!/usr/bin/perl
use strict;
for (1..3) {
  last unless defined (my $line = <>);
  warn "Read_three got: $line";
}