This code works! *does a little dance* thanks arturo

 #!/usr/bin/perl -w
use strict;

use CGI qw(:standard);

print    header(),
    start_html("Street Print CD Catalog"),
    h1("StreetPrint CD Catalog");

if (param()) {
chomp(my $color = param("color"));
chomp(my $pattern = param("pattern"));
print p($color, br(), $pattern);
open (DBFILE, "<form.db") or die "$!";
while (my $line = <DBFILE>) {
chomp $line;
my @record = split /\|/, $line, 4;
# $record[0] is name, 1 => color 2 => pattern, etc.
if ($record[1] =~ /$color/i or $record[2] =~ /$pattern/i)
    {        
    print p($record[0], br(), $record[1], br(), $record[2], br(), $rec
+ord[3]);    
    }
}

close (DBFILE);



} else {
print start_form();
print p("What Color do you want? ", popup_menu("color", ["Any", 'Brick
+', 'Terracotta','Burnt Sienna','Hunter Green','Safety Blue','White', 
+'Bedrock','Slate','Sierra']));
print p("What Pattern do you want? ", popup_menu("pattern", ["Any", 'O
+ffset Brick','Herringbone','Herringbone Diagonal','Ashlar Slate','Bri
+tish Cobble','Frisco Cobble','Random Stone','Eurofan']));
print p(submit("Find"), reset("Reset"));
print end_form;
}
print end_html;
[download]

----------------------------
Wiz, The VooDoo Doll
Head Master of 12:30 Productions
----------------------------