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