#!/perl

use strict;

#Take the 3rd root of 8;
my $root = nthRoot(8,3);

print $root;

#Just pull the parameters off the 
#@_ array as they are needed
#in the return statement
sub nthRoot
{return (shift)**(1/shift);}