#!/usr/bin/perl
# main.pl

use warnings;
use strict;

require "functions.pl";

our ($glbA, $glbB);

$glbA = "Main_GlobalA";
$glbB = "Main_GlobalB";

procedureA();
procedureB();

##</code><code>##

#!usr/bin/perl
# functions.pl

use warnings;
use strict;

sub procedureA
{
  print $glbA;
}

sub procedureB
{
  print $glbB;
}

1;