Select Code to Download

getInfo $scalar, @array, %hash;

#!/usr/bin/perl
package Foo;
...
baz => quux
foo => bar
passed array: 'di', 'da', 'doh', 'unexpected')

sub getInfo {
    my $scalar = shift;
    my %hash   = @_;
}