use strict;
use warnings;

use Math::BigFloat;
Math::BigFloat->accuracy(200);

my $s = sqrt(Math::BigFloat->new(2));
print $s, "\n";

for my $num (2..2) {
    $s = sqrt(Math::BigFloat->new($num));
    print $s;
}