sub fred
{
  return ( ( $_[0] eq 'ooyah' ) ? 1 : 0 );
}