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

##</code><code>##

package myperl;

use strict;

BEGIN
{
  require Exporter;
  use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

  $VERSION              =0.1;
  @ISA                  =qw(Exporter);
  @EXPORT               =qw(
                            getInfo
  )
  %EXPORT_TAGS          =();
  @EXPORT_OK            =qw();
}

sub getInfo {
  my $thescalar=shift;
  my %thehash=shift;
  ...etc...
}