#!/usr/local/bin/perl
use strict;
use warnings;

print ceil -2.1;
print ceil 2.1;
print floor -2.1;
print floor 2.1;