1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl -w
use strict;


sub useParam {
    my %params = @_;
    unless ($params{'aaa'}){
        for(qw|aaa bbb|){$params{$_} = shift };
    }
    die "Bad params!" unless ($params{'aaa'});
    print qq~$params{'aaa'}\n~;
}


useParam('aaa'=>60,
	 'bbb'=>100);

useParam('90','200');

1;