sub nose { my $cuke = shift; 1 if $cuke; return; } #### sub nose { my $cuke = shift; 1 if $cuke; undef; }