use Foo::Bar::Baz;

local *alias:: = *Foo::Bar::Baz::;
print alias->new($a,$b,$c); # Foo::Bar::Baz=HASH(0x123456)