#!/usr/bin/env perl

# http://perlmonks.org/?node_id=1195793
# 	$Id: signatures.pl,v 1.3 2017/07/23 12:44:30 karl Exp karl $

use strict;
use warnings;
use feature qw(say);
use signatures;

say $^V;

say nose(q(cuke));

sub nose ($cuke) {
    $cuke;
}

__END__