Select Code to Download

      if($tmp[0] eq ">") {
        my $nm = substr($line,1);
...
        chomp $line;
        $ret{$nm} = $line;
      }