Select Code to Download

open (MYFILE, "< $filename") or die "Failed to open $filename: $!";
@rows = <MYFILE>;
...
foreach $row (@rows) {
    # do something to $row
}

open (MYFILE, "< $filename") or die "Failed to open $filename: $!";
while (<MYFILE>) {
    # do something with $_
}
close (MYFILE);