Help for this page
print "The color of \$circle is: @{[$circle->getName()]}\n";
print "The color of \$circle is: ${\$circle->getName()}\n";