Controller --

#!perl

$x = 5;

print "Before Require $x\n";

require('e:/perltest/require.cgi');
&MoreTest;

sub MoreTest {
  $y = 6;
  print "After Require $x, $y\n";
  
  &TestPrint();
  
  print "After TestPrint $x, $y, $z";
}



REQUIRE --
#!perl

use strict;

print "In Require\n";


sub TestPrint {
  my $z = 10;
#  print "$x $y ";
  print "$z\n";	  
}
1;