#!/usr/bin/perl

use strict;
use DBI;


my $dbname = '';
my $host = 'localhost';
my $user = '';
my $pwd = '';
my $dbh = DBI->connect("DBI:mysql:$dbname:$host",$user,$pwd)
   or die "Can't connect to database!\n";

my $query = "";

my $sth = $dbh->prepare($query) or die "Can't prepare $query: " . $dbh->errstr . "\n";
my $result = $sth->execute or die "Can't execute query: " . $dbh->errstr . "\n";

my @row;
while(@row = $sth->fetchrow_array) {

   print "@row\n";

} # end while

$sth->finish;

$dbh->disconnect;

exit(0);