Select Code to Download

  if( open( IN, '<', $somefile ) ) {
    # it's  there, do something with it
...
  else {
    warn "wasn't able to open $somefile (reason=$!)\n";
  }

    process(*IN);
    sub process {
...
          ....
      }
    }