#!/usr/local/bin/perl

use DBI;
my $dbhost = 'localhost';
my $dbport = '3306';
my $dbuser = '';
my $dbpass = '';
my $db_name = '';
my $table_name = '';
my $outFile = 'output.csv';

$db_handle = DBI->connect("dbi:mysql:database=$db_name;host=$dbhost:$dbport;user=$dbuser;password=$dbpass")
    or die "Couldn't connect to database: $DBI::errstr\n";
$sql = "SELECT * FROM $table_name";
$statement = $db_handle->prepare($sql)
    or die "Couldn't prepare query '$sql': $DBI::errstr\n";
$statement->execute()
    or die "Couldn't execute query '$sql': $DBI::errstr\n";
open OUTPUT_FILE , ">$outFile";
while ($row_ref = $statement->fetchrow_hashref())
{
    print OUTPUT_FILE $row_ref->url .",".$row_ref->title ."$row_ref->description.",";
}
clode OUTPUT_FILE;
$db_handle->disconnect();