use Foo;

print "\$foovar\t\t\$Foo::foovar\n";
print "-" x 30,"\n";


print "$foovar\t\t$Foo::$foovar\n";

$foovar = 'new';

print "$foovar\t\t$Foo::$foovar\n";

# Ausgabe:
# $foovar         $Foo::foovar
# ------------------------------
# old             old
# new             new