my ($Test2Var) = $main::TestVar;