#!/usr/bin/perl -w
use warnings;
use strict;
use diagnostics;
use Math::BigFloat;

my $float=Math::BigFloat->new(2.0);
$float->bsqrt();
print "\$float is a:\t" . ref($float) . "\n";
my $int = $float->as_int();
print "\$int is a:\t" .ref($int) . "\n";
print "\$float\t$float\n\$int:\t$int\n";

##</code><code>##

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