perl -MDevel::Peek -le'$^T=42.3;Dump($^T)'