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