C:\>perl -le "print sprintf('%d', 488714.999);"
488714