C:\chas_sandbox>perl -le "print +(int((17.95 *3)*100 )/ 100)"
53.84

C:\chas_sandbox>perl -le "print 17.95 *3"
53.85

C:\chas_sandbox>perl -le "print 1795 *3"
5385