#!/usr/bin/perl use strict; use CGI qw/:standard/; #Initiate Variables #Create functions #write HTML print "Content-Type: text/html\n\n"; print "\n"; print "\n"; print "TEST\n"; print " "; print "\n"; print "\n"; print "
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " \n"; print " \n"; #print " Add
\n"; #print " Remove\n"; print " >\" onClick=\"moveOptions(this.form.available, this.form.selected;\">
\n"; print " \n"; print " 		\n"; print " \n"; print "
\n"; print "
\n"; print "\n"; print "\n";