Select Code to Download

use Exporter::Tidy default => [ qw(transaction select_handle commit ro
+llback) ];

...

    # ...
}

transaction {
    select_handle($dhb);
    # ...
};