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