#!/usr/bin/perl -w
use strict;

use POSIX qw(ceil floor);

my @numbers = qw(1 1.2 1.5 1.7 -1.2 -1.5 -1.7);

foreach (@numbers) {
  printf("x: %.1f: ceil(x): %d floor(x) %d\n", 
         $_, ceil($_), floor($_));
}