#!/usr/bin/perl
use strict;
my $a = 27 ** (1/3);  # 1/3 represents cube root
print "a = $a";
exit;

##</code><code>##

a = 3