>perl -le"$n=38.91*100; $n=sprintf('%f',$n*1024)/1024; print $n%5;
1