#!/usr/bin/perl

use GlobalTest;

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

$GlobalTest::GLOBALA=30;

print $GlobalTest::GLOBALA;