Help for this page
$ perl -MPOSIX -le ' my($f,$i)=POSIX::modf(3.14); print "f=$f; i=$i";' f=0.14; i=3