RosettaCodeData/Task/Nth-root/Perl/nth-root-2.pl

print nthroot(5, 34), "\n";
print nthroot(10, 7131.5 ** 10), "\n";
print nthroot(0.5, 7), "\n";