print wop(  8, 3 ); #2
print wop( 27, 3 ); #3

sub wop {
    my ( $base, $root ) = @_;
    return $base ** (1/$root)
}