Select Code to Download

#!/usr/bin/perl -w
use warnings;
...
my $int = $float->as_int();
print "\$int is a:\t" .ref($int) . "\n";
print "\$float\t$float\n\$int:\t$int\n";

$float is a:  Math::BigFloat
$int is a:    Math::BigFloat
$float        1.41421356237309504880168872420969807857
$int:         1.41421356237309504880168872420969807857