Select Code to Download

sub selectAll {
  my ($what,$table,@clauses);
...
  $sth->execute() or die "SQL: selectAll: '$statement' failed.";
  return $sth->fetchall_arrayref();
};

my $sthGetFile = $dbh->prepare("select VISUAL,LINK from FILES where (I
+D=?)");

...

# Assuming $id exists in the table
print getFile($id)->[1];

my @id = (1,2,3,4,6,7,8);
my $clause = "";
...

my $statement = "select ID,COLOR from TABLE $clause";
...