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