Help for this page
if ($type eq 'square' or 'Square'){
if ( ($type eq 'square') or ($type eq 'Square') ){
if (lc($type) eq 'square'){