open(IN, '<movies.txt') or die $!;
   @tips = <IN>;
close(IN);

print start_form(-action=>'show.pl');
print table( {border=>1, -width=>'35%', -align=>'center', -style=>'border: ridge lime; color: yellow; font-size: 20', -background=>'../data/images/blue.jpg'},
      Tr( {-align=>'center'}, td( 'Movie X' ), td( popup_menu(-name=>'dvdX', -values=>[@tips] )), td( submit( 'Pick' ))),
      Tr( {-align=>'center'}, td( submit( 'Clear' )),    td( submit( 'Done' )))), br(), br();

print table( {border=>1, -width=>'35%', -align=>'center', -style=>'border: ridge lime; color: yellow; font-size: 20', -background=>'../data/images/blue.jpg'},
      Tr( {-align=>'center'}, td( submit( 'Add' )),    td( submit( 'Show' ))),
      Tr( {-align=>'center'}, td( submit( 'Modify' )), td( submit( 'Delete' ))));
print end_form(), br(), br();