Select Code to Download

Windows98 (Perl 5.6.1) outputs this:

...
Read_three got: This is line number 3
Writing line 4
Broken pipe

# First file ==================================
#!/usr/bin/perl
...
  last unless defined (my $line = <>);
  warn "Read_three got: $line";
}