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

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