#!/usr/bin/perl
$numero = 42;
print "A raiz quadrada é ", $Raiz, "\n";
$Raiz2
= (pow($numero
)*1/3)print "A raiz cubica é ", $Raiz2, "\n"
IyEvdXNyL2Jpbi9wZXJsCgoKIAokbnVtZXJvID0gNDI7CgokUmFpeiA9IHNxcnQoJG51bWVybyk7CnByaW50ICJBIHJhaXogcXVhZHJhZGEgw6kgIiwgJFJhaXosICJcbiI7CgokUmFpejIgPSAocG93KCRudW1lcm8pKjEvMykKcHJpbnQgIkEgcmFpeiBjdWJpY2Egw6kgIiwgJFJhaXoyLCAiXG4iCg==