Select Code to Download

foreach $results (@results){
      ($field_1,$field_2,$field_3) = split(/\|/,$results);
...
    </tr>
feach
}

sub search_database{
  my $search_for = $_[1];
...
    }
  close (DB);
}