Select Code to Download

use myperl;
$myresult=getInfo($myscalar, %myhash)

package myperl;

...
  my %thehash=shift;
  ...etc...
}