$n=<>; $n*=1.0001; print " decimal \n"; print " $n \n";