Select Code to Download

  $query .= ' where upper(env)=upper(?)';
  push(@sql_params,$query(env});
...

  my $sth = $dbh->prepare($query) or die;
  $sth->execute(@sql_params);

if (defined($query{component}))
  push(@querypart, 'where upper(component) = upper(?)';
...
print $query;
my $sth = $dbh->prepare($query); 
$sth->execute(@sql_params);