Untitled

    sub Power(\base, \exp) {
        given exp {
            when 0       { 1.0                             }
            when * >= 1  { base     * Power(base, exp - 1) }
            default      { 1.0/base * Power(base, exp + 1) }
        }
    }

    for 1000,20,2,1,0,-1,-2,-20,-1000 { say Power 5, $_ }