Select Code to Download

foreach (@{$dbh->selectall_arrayref("SELECT * FROM search_atoms WHERE 
+occurences >= 5 ORDER BY occurences DESC")}) {
    print Tr( td({'-align' => 'left'}, [ $_->[0 .. 3] ] ) );
}