#!/usr/bin/perl

use CGI qw/:standard/;

my $q = new CGI;

%in = map { $_ => $q->param( $_ ) } $q->param;

print "Content-type: text/html\n\n";

print "<table border='1' cellpadding='5'>";

print Tr( td( [ "First", "Last",
                "<a href='testme.cgi?action=add'>add</a>" ]
        )   );

while( <DATA> ){
  for( [ split /\s/, $_ ] ){
    print Tr( td( [ $_->[0], $_->[1],
    "<a href='testme.cgi?action=edit&firstname=$_->[0]"
    ."&lastname=$_->[1]'>edit me</a>" ] ) );
  }
}

print "</table>";

print start_form;

if( $in{action} eq 'edit' || $in{action} eq 'add'){

if ($in{'submit'} eq 'New Entry') {
  print table(
    Tr( { -valign => "TOP" },
        [ td( [ "First Name", textfield( -name => 'firstname',
                                         -size => 80
                                       )
              ]
            ),
          td( [ "Last Name", textfield( -name => 'lastname',
                                        -size => 80
                                      )
              ]
            )
        ]
      )
    );
}
else {
  print table(
    Tr( { -valign => "TOP" },
        [ td( [ "First Name",
                textfield( -name  => 'firstname',
                           -size  => 30,
                           -value => $firstname
                         )
              ]
            ),
          td( [ "Last Name",
                textfield( -name  => 'lastname',
                           -size  => 30,
                           -value => $lastname
                         )
              ]
            )
        ]
      )
  );
};
print submit( -name=>'submit', -value=>'New Entry');
}

__DATA__
Kent Cowgill
J CK
Fred Patterson
Steve Peterson
[download]