Select Code to Download

open(my $fh, "<", "data.txt") || die "Can't open file: $!";

open (FH, '<data.txt') || die "Can't open file: $!";

while(my $line = <$fh>) {

while(my $line = <FH>) {