What are best practices for working with DBI basics?

# Example of connecting to a database using Perl DBI

use DBI;

# Database configuration
my $dsn = "DBI:mysql:database_name:host=localhost";
my $username = 'your_username';
my $password = 'your_password';

# Connecting to the database
my $dbh = DBI->connect($dsn, $username, $password, {
    RaiseError => 1,
    PrintError => 0,
    AutoCommit => 1
}) or die "Could not connect to database: $DBI::errstr";

# Prepare and execute a SQL statement
my $sth = $dbh->prepare('SELECT * FROM your_table');
$sth->execute();

# Fetch data
while (my @row = $sth->fetchrow_array()) {
    print join(", ", @row), "\n";
}

# Clean up
$sth->finish();
$dbh->disconnect();