Select Code to Download

use strict;
use warnings;
...
print "$x - ", (id_2obj($x+0))->test(),"\n";

use strict;
use warnings;
...
my $x = dualvar( id( $t ), "$t" );
print "$x = ", (id_2obj($x+0))->epoch, " seconds since the epoch\n"