Select Code to Download

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