#!/opt/local/bin/perl
use DBI;

print "\nTesting perl... ok.\n\n";

my $dsn = 'DBI:mysql:music_app:localhost';
my $db_user_name = 'music_app';
my $db_password = 'music_app';
my $db = DBI->connect($dsn, $db_user_name, $db_password);

# INSERT, UPDATE, DELETE... do() short for prepare/execute/finish.
$db->do("INSERT INTO genres (name, description) values ('Country','Oh my bleeding heart.')");

my $sql = 'select * from genres';
my $stmt = $db->prepare($sql);
$stmt->execute();
while (my ($id, $name, $desc) = $stmt->fetchrow_array()) {
 print "$name : $desc\n";
}
$stmt->finish();
$db->disconnect();
print "\nFinished.\n\n";


#$db->quote($unquoted_string);
#$db->errmsg();