Select Code to Download

#!/usr/bin/perl

...

getInfo($scalar,%hash);
__END__

getInfo($scalar,%hash);

my ( $thescalar, %thehash ) = @_;

sub getInfo {
  my ( $thescalar, $thehashref ) = @_;
...
}

getInfo( $scalar, \%hash );

sub getInfo {
  my ( $thescalar, %thehash ) = @_;
...
}

getInfo( $scalar, %hash );