#! /usr/bin/perl use CGI; #presumably ... print table( {-width=>"90%", -align=>"center", -style=>"border: ridge lightgreen; color: yellow; font-size: 18", -background=>"../data/images/blue.jpg"}; foreach(@files) { print Tr( td( {-align=>'center'}, font( {-size=>5, -color=>'white'}, b( $file ))))); print Tr( {-align=>'center'}, td( submit( $file ))))); }