package Amel;
use strict;

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

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