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