#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use DBI;

## mysql user database name
$db ="dbname";
## mysql database user name
$user = "dbuser";
## mysql database password
$pass = "abc123"; 
## user hostname 
$host="localhost";

my $dsn = "DBI:mysql:database=$db;host=$host";
my $dbh = DBI->connect($dsn, $user, $pass) or 
            die("Error connecting to the database: $DBI::errstr\n");

my $sql = qq/select * from table/; 
my $sth = $dbh->prepare ($sql);

while (@row = $sth->fetchrow_array) { 
   my ($a, $b, $c, $d ) = @row;
       print ("--", @row), "\n\n"; }

$dbh->disconnect (); 
exit (0);