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