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