#!perl -w
use strict;
$| = 1;

my $TestVar = "Test";                            
require ("required.cgi");
my $Message = &TestPrint (0);
print "Output Message : $Message\n";


##</code><code>##

#!perl -w
use strict;

sub TestPrint {
    #---  Variables Needed  ---#
    my ($Received) = $_[0];    

    my $OutputMessage = "";
    my ($Test2Var) = $main::TestVar;

    print "Test Var $Test2Var\n";
    $OutputMessage .= "TestVar : $main::TestVar, ";
    $OutputMessage .= "Received : $Received";

    return $OutputMessage;

}

1;