sub foo {
  my $resourceHandle = locked_resource();
  my $dbh = get_database_handle;
  my $count = get_current_users($dbh);
  my $elapsed = get_elapsed_time();

  my $users_per_second = $count/$elapsed;
  print "Found ",$users_per_seond," users per second.\n";
};