more precision for perl script too