my $dbh = DBI->connect("DBI:ODBC:Acacia");

my $media = $dbh->prepare(q{
  select *
  from   MEDIA
  order
      by SortThis(NAME)
});