Data Type Perl

$x = 1.99999;
print int($x);