#!/usr/bin/perl

package Test;

use strict;

my $var;

##</code><code>##

package Amel;
use strict;

$Amel::var = "Dan";
my $var = "Balaban";

print $Amel::var, " $var\n";

##</code><code>##

#!/usr/bin/perl

use strict;

$main::var = "string";

print $main::var, "\n";