Select Code to Download

  mysub(%hash);

  sub mysub {
    my (%params) = @_;
  }

  mysub(\%hash);

...
    my $params = shift;
    my %paramhash = %$params;
  }