Help for this page

Select Code to Download


  1. or download this
    # instead of this:
    my @lines = <DATA>;
    ...
    while my $line (<DATA>) {
    ...
    }