Select Code to Download

CREATE TABLE catalog (
  phone_number VARCHAR(10) PRIMARY KEY NOT NULL,
...
  number_record VARCHAR(255),
  action        VARCHAR(255)
);

#!/usr/bin/perl

...
$dbh->do($query);

$dbh->disconnect();