#!/usr/bin/env perl                                                                                               

use strict;
use warnings;

print fun(-nose =>'cuke') . qq(\n);

sub fun {
    my %args = @_;
    return $args{-nose};
}

__END__

karls-mac-mini:monks karl$ ./fun.pl 
cuke