#!/usr/local/bin/perl # Jaime Prilusky, 2004 use CGI; use CGI::Carp 'fatalsToBrowser'; my $q = new CGI; print $q->header(); print $q->Dump(); giveForm(); sub giveForm { my $rand = rand(); print qq {
Gene
Barcode
Synthetic
Group
Proceed yes no maybe

Special instructions:

}; }