Select Code to Download

#!/usr/bin/perl
use strict;
...

    print "HANDLE: $handle\nTHING: $thing\nOTHER: $other\n";
}

#!/usr/bin/perl 

...
    MAPARGS \my($handle, $thing);
    print "HANDLE: $handle\nTHING: $thing\n";
}

#!/usr/bin/perl 

...
     my %args = Params(qw(handle thing ?other))->args(@_);
    print "HANDLE: $args{handle}\nTHING: $args{thing}\nOTHER: $args{ot
+her}\n";
}

#!/usr/bin/perl 

...
    my $args = check( $tmpl, \%hash ) or die("Failed to parse args");
    print "HANDLE: $args->{handle}\nTHING: $args->{thing}\nOTHER: $arg
+s->{other}\n";
}

#!/usr/bin/perl

...

    print "HANDLE: $handle\nTHING: $thing\n";
}