Select Code to Download

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

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