{
  my $count;

  sub manipulate_count {
    ++$count;
    print "manipulate_count has been called $count times\n";
  }
}