Select Code to Download

use strict;
use warnings;
...
                             });
    print Data::Dumper::Dumper($arg),'-'x50,"\n";
}

    my $arg = $self->fix_args({ -arg_names => ['-name','-age','-mood']
+,
                                -arg_values  => \@_
                             });