#!/usr/bin/perl -l
use POSIX;
printf POSIX::floor -6.725/0.025;