perl -le '$Foo::bar = "Hello"; *Baz::bar = *Foo::bar;  print $Baz::bar'