Select Code to Download

my @list = qw(value1 value2);
unless (open (FILE, $filename)){
...
  } # while
  close (FILE);
} # else

  ...
  while (<FILE>){
...
  } # while

} # else