# this is PSEUDOCODE

# DATABASE SETUP & MANAGEMENT
sub database_create {}
sub database_check_exists {}
sub database_create_tables {}
sub database_drop {}

# DATABSE QUERYING / INTERACTION
# there is NO html here, this is just code

sub record_new {}

sub record_delete {}

sub records {} # returns ids for all records present

sub record_get{}

sub record_replace {
  #this may or may not be how you want to 'replace'
  record_delete($id)
  record_insert($id,{ 
    vlanid => $vlanid, 
    ipaddr => $ipaddr,
    descr => $descr
  });
}

# GRAPHICAL INTERFACE

sub show_records {
  my @records = records()  ;
  for(@records){
   record_get()
   etc etc
}