#!/usr/bin/perl

use strict;
use warnings;

use DBI;
use DBD::mysql;

#this is my config module
use DBase::MySQL::Config qw(DB_CUSTOMER_CATALOG DB_USER DB_PW);

my $dbh = DBI->connect(DB_CUSTOMER_CATALOG, DB_USER, DB_PW);

my $query = "INSERT INTO catalog (phone_number) VALUES ('5555555555'), ('1111111111');";
$dbh->do($query);

$dbh->disconnect();