if (-e $info) { if ((-e $info) and ($query =~ /support/)) { open (FILE, $info) or die "Can't open file!"; print while ; close FILE; } if ((-e $info) and ($query ne /support/)) { print ""; print "Product Listing

"; open (FILE, $info) or die "Can't open file!"; print while ; close FILE; } }