perl -le'$^T=42;print($^T)'

##</code><code>##

perl -le'$^T=42.3;print($^T)'

##</code><code>##

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