#!/usr/bin/perl -l

sub floor { int( ( $_[0] - int($_[0])) + 1 ) + int($_[0]) - 1 }
sub ceil  { int( ( $_[0] - int($_[0])) - 1 ) + int($_[0]) + 1 }

print floor ( 5.4);   # sets $x to  5
print floor (-5.4);   # sets $x to -6
print ceil  ( 5.4);   # sets $x to  6
print ceil  (-5.4);   # sets $x to -5

sub round { $_[0] > 0 ? int $_[0] + 0.5 : int $_[0] - 0.5 }

print round  4.4;   # prints  4
print round  4.5;   # prints  5
print round  4.6;   # prints  5
print round -4.4;   # prints -4
print round -4.5;   # prints -5
print round -4.6;   # prints -5