Select Code to Download

my %keymap = %{$_[0]};

  my $file_name = shift;
  my $hr = shift;

  ...
  $hr->{$2} = $1;

#!/usr/local/bin/perl
use strict;
...
    }
    return 1;
}