#!/usr/bin/perl


 
$numero = 42;

$Raiz = sqrt($numero);
print "A raiz quadrada é ", $Raiz, "\n";

$numero = 42;
$Raiz2 = sqrt($numero)*1/3;
print "A raiz cubica é ", $Raiz2, "\n"