Select Code to Download

  END {
    # your cleanup code here
  }
  ...
  open($fh, '<', $file) or die "Couldn't open $file: $!";