Some observations:

• The code doesn't compile. It's missing a semicolon.
• Modules must return a true value, or else perl will think something's wrong with it and refuse to continue.
• The name of your module shouldn't be all lowercase, or you risk clashing with some future Perl pragma.
• I don't think you need a BEGIN block
• It's better to use our instead of vars.

For passing the hash to the sub, you can use a reference. Try this module...

## file: Myperl.pm
package Myperl;

use strict;
require Exporter;

our $VERSION     = 0.1; 
our @ISA         = qw(Exporter);
our @EXPORT      = qw(getInfo);
our %EXPORT_TAGS = ();
our @EXPORT_OK   = qw();
 
sub getInfo {
  my $thescalar=shift;
  my $thehash=shift;    ## pick a reference

  print "scalar: $thescalar\nhash:\n";
  print "$_ => ", $thehash->{$_}, "\n" for keys %$thehash;
}
  
1;
[download]

...with this code:

use Myperl;
my $s=4;
my %h=(0..5);
my $myresult=getInfo($s, \%h);  ## pass a reference
[download]