my $TestVar = "Test";

##</code><code>##

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