--perl对一个数字开平方

#!/usr/bin/perl

my $a = 4;
my $b = sqrt($a);

print "\$b is $b ";