#!/usr/local/bin/perl # Jaime Prilusky, 2004 use CGI; use CGI::Carp 'fatalsToBrowser'; my $q = new CGI; print $q->header(); if (@names = $q->param) { foreach $nam (@names) { print $nam,"
"; } } else { giveForm(); } sub giveForm { print qq {
Gene
Barcode
Synthetic
Group
Proceed yes no maybe

Special instructions:

}; }