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