1package Class::With::A::Long::Namespace::Scalar_object; 2sub new { return bless \$_, 'Scalar_object'; } 31; 4