...
my $SQL = <<SQL;
Select
        *
from
        $table
SQL

$dbh->{LongReadLen} = 65500;
my $sth = $dbh->prepare($SQL) || die $dbh->errstr;
$sth->execute();
my $colNames = $sth->{'NAME'};
my $nColumns = $sth->{'NUM_OF_FIELDS'};

my $colString;

for my $colName ( @$colNames ) {
        $colString .= "\n\t$colName,";
}
chop($colString);

print <<DOIT;
OPTIONS (ROWS=1)
LOAD DATA
INFILE *
REPLACE INTO TABLE $table
FIELDS TERMINATED BY '|' TRAILING NULLCOLS
(
DOIT

print "$colString\n";

print<<DOIT;
)
BEGINDATA
DOIT
while ( my @r = $sth->fetchrow_array ) {
        print join ( '|', map ( $_ , trim( @r )) );
        print "\n";
}
$sth->finish || die;
$dbh->disconnect;
...