How do I connect to my database from perl?

#!/usr/bin/perl

use DBI;



my $database="YourDataBaseName";

my $database_server="localhost";

my $database_server_type="mysql";

my $database_user_id="YourUserID";

my $database_password="YourPassword";



$dbh = DBI->connect("DBI:$database_server_type:$database:$database_server", $database_user_id, $database_password) or die "Couldn't Connect To My Database";