#!/usr/bin/perl

use strict;
use DBI;

my $user = '';
my $pass = '';
my $host = 'localhost';
my $db_name = '';

my $dbh = DBI->connect ("DBI:mysql:$db_name:$host", $user, $pass,
{PrintError => 0, RaiseError => 1})
or die print "Cannot connect to database: ", $!;

my $sth= $dbh->prepare ("SELECT * FROM Categories");
$sth->execute() || die $!;