select
filename
from $database_table
where filename like '$filename%.html'
order by filename desc

##</code><code>##

sub Do_SQL2 {
    my( $sql ) = @_;
    $sth = $dbh->prepare( $sql );
    $sth->execute();
}

##</code><code>##

Do_SQL2($SQL);