Select Code to Download

  my $filename = # complicated work that builds filename
  open ( my $fh, '<', $filename ) or
    die "Unable to open $filename for read: $!";
  # ...
  close ( $fh );