#!/usr/bin/perl 

use strict;

use Params::Named;

my_sub( handle => 'Test', 'thing' => 'something');

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