perl -Wle " print $] if not length $_ "
5.012002