ok (tie(my $tiedScalar, 'IPC::MMA::Scalar', $scalar), "tie scalar");