$ perl -V:uselongdouble\|nvsize nvsize='16'; uselongdouble='define'; $ perl -MData::Dumper -wE'say Dumper cos 1' $VAR1 = '0.540302305868139717';