# control.cgi
use vars '$TestVar';
$TestVar = 'test';

# or

$main::TestVar = 'test';