Help for this page

Select Code to Download

Select or download this

    my @a;
    my $o = tie @a, "Tie::File", $filename;
...
            last;
        }
    }