#!perl -l

use strict;
use warnings;

package Pizza;
$Pizza::foo = "bar";

package Pizza::Milkshake;
print $Pizza::foo;