package Carp;
sub cluck   { warn longmess  @_ }