#!usr/bin/perl
# functions.pl

use warnings;
use strict;

sub procedureA
{
  print $glbA;
}

sub procedureB
{
  print $glbB;
}

1;