Select Code to Download

open my $handle,'<',$filename or die "Can't open filename: $!";
while (my $line=<$handle>) {
...
    }
}
close $handle;