print $cgi->Tr( 
               $cgi->td(
                        {-align=>'center'},
                        [splice @images,0,4]
                       )
               ),
      $/ while @images;