package GlobalTest;

$GLOBALA = 10;

1;

##</code><code>##

#!/usr/bin/perl

use GlobalTest;

print "Content-type: text/plain\n\n";

print $GlobalTest::GLOBALA;

##</code><code>##

#!/usr/bin/perl

use GlobalTest;

print "Content-type: text/plain\n\n";

$GlobalTest::GLOBALA=30;

print $GlobalTest::GLOBALA;