Help for this page
Select Code to Download
Select
or
download this
my ($foo, $bar) = @{+shift}{qw/ -foo -bar/};