sub acl {
    my $dbh = shift;

    my @acls;

    my @tables = qw (
at_types
at_types_id_seq
at_assets
at_assets_id_seq
at_ips
at_ips_id_seq
at_ports
at_ports_id_seq
    );

    foreach my $table (@tables) {
        push @acls,
          "GRANT SELECT, INSERT, UPDATE, DELETE ON $table to "
          . $RT::DatabaseUser . ";";

    }
    return (@acls);
}
1;

