#!/usr/bin/perl
use strict;
use Data::Dumper;
use DBI;

my $dbh = DBI->connect('DBI:DBM:PRO','username','password') or die "Couldn't connect to the database ". DBI->errstr;
my $sth_action = $dbh->prepare('select distinct action_type, description from action_type ') or die 'Cannot prepare the statement'. $dbh->errstr;
$sth_action->execute or die 'Cannot execute the statement '. $sth_action->errstr;