#!/usr/local/bin/perl
# Jaime prilusky, 2003


package A;
$variable = "In package A";

package B;
$variable = "In package B";

print $variable,"\n";

print $A::variable,"\n";

print $B::variable,"\n";