Select Code to Download

$ perl -Mstrict -Mwarnings -e 'sub allVars($no1) { 1 }'
Illegal character in prototype for main::allVars : $no1 at -e line 1.

my ($self, $no1, $no2, $name1, $name2) = @_;

$object->allVars(...)

#!/usr/bin/env perl -l

...

my $obj = Some::Module::->new;
$obj->all_vars(qw{a b c d});

all vars = Some::Module=HASH(0x7fc55c003098) a b c d