#!/usr/bin/perl -w

use strict;
use DBI;
my $dbh_m = 
    DBI->connect("dBi:mysql:cacti:localhost",
    "cacti", 
    "cacti") 
    or die("Cannot connect: $DBI::errstr\n");

my $sql = qq(select * from data_template_data);
my $sth_m = $dbh_m->prepare($sql);

$sth_m->execute;

while(my $p = $sth_m->fetch){
print "MySQL: @$p\n";
}

$dbh_m->disconnect;