Help for this page

Select Code to Download


  1. or download this
    my ($first, @rest) = <DATA>;
warn "first: $first";
...
header
line1
line2
  2. or download this
    user@unforgiven:~$ perl tst.pl
first: header
rest:  line1
 line2
user@unforgiven:~$