#!C:\Perl\bin

use strict;
use DBI;

my $fromHost = "someServer";
my $fromDB = "someDB";
my $fromTable = "someTable";
my @fromFields = ("Field 1", "Field 2", "Field 3");

my $fromDSN = "dbi:mysqlPP:database=$fromDB;host=$fromHost";
my $dbh = DBI->connect($fromDSN, "", "");
my $drh = DBI->install_driver("mysqlPP");

my $rs = $dbh->selectall_arrayref("SELECT '" . join("','", @fromFields) . "' FROM $fromTable");

$dbh->disconnect();

foreach my $myRow (@$rs) {
  print "@$myRow\n";
  foreach my $myElem (@$myRow) {
    print "$myElem,";
  }
  print "\n";
}