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

##</code><code>##

sub xcmp
{
   my $count;
   sub get_count { return $count }
   return &get_count;
}