Select Code to Download

# Define Your Database Fields Here Like So
#       Field Name => [Number, 'Readable Name', 'type of field, two op
+tions are text or textarea'
...
#       Phone =>                [3,             'Phone Number:',      
+          'text'],
#       Address =>      [4,             'Street Address:',            
+  'textarea']
#);

%fields = (
        ID =>                   [0,             'Link ID:',           
+          'text'],
...
                'ops' => 'ops',
                'cmd' => 'cmd');

sub build_record_page {
my (%record) = @_;
...
        $html .= "</TABLE><P>";
print $html;
}