my $object = tie my $scalar, 'Tie::Scalar::SomethingCool';
my $object2 = tied( $scalar );