平方根（sqrt

#!/usr/bin/perl

$num=16;
$root_num=sqrt($num);
print"$numの平方根は$root_numです\n";