$$num1 = Grief::new( 113 );
$num2 = $num1; # Assign using _copy( )
$num3 = _set_from_existing( $num1 ); # Assign using _set_from_existing( )
_set_val( $num1, 555 );
print _get_val( $num2 ),"\n", _get_val( $num3 ), "\n";
__END__