sub procedureA {
  print $main::glbA;
}

sub procedureB
{
  print $main::glbB;
}