in reply to Which function for third root of number ?
use POSIX qw(ceil floor); if (ceil($num ** 1/3) == floor($num ** 1/3)) { print $num . " is a cube of " $num ** 1/3; } else { print $num . " is not a perfect cube."; } [download]