sub xcmp
{
  my $count;
  $x = sub { return $count };
  return $x;
}