Select Code to Download

>perl -E"undef(*^T); $^T = 1400000000.123; say $^T;"
1400000000.123

use Variable::Magic qw( cast wizard );

...
    # Copies from $^T after assigning to it.
    set => sub { $PL_basetime = ${ $_[0] }; },
));