use strict; 
use warnings; 
use 5.012;

use DBI;
use DBD::mysql;

# CONFIG VARIABLES
my $db_type = "mysql";
my $database = "my_db";
my $host = "localhost";
my $port = "3306";
my $tablename = "people";
my $user = "root";
my $pw = "";

# DATA SOURCE NAME
my $dsn = "dbi:$db_type:$database:$host:$port";

# PERL DBI CONNECT
my $connect = DBI->connect($dsn, $user, $pw);

# PREPARE THE QUERY
my $query = "select * from $tablename";
my $query_handle = $connect->prepare($query);
$query_handle->execute();

my($id, $name, $info);
$query_handle->bind_columns(\$id, \$name, \$info);

while($query_handle->fetch()) {
   say "$id, $name, $info";
}