#!/usr/bin/perl -w
use strict;
use DBI;

# variables you need to fill in
my $database = '';
my $table    = '';
my $hostname = '';
my $port     = '';
my $user     = '';
my $password = '';

my $dsn = "DBI:mysql:database=$database;host=$hostname;port=$port";
my $dbh = DBI->connect($dsn, $user, $password)
    or die "DBI connect failed\n";
my $sth = $dbh->prepare("SELECT * FROM $table");
$sth->execute;

while (my $ref = $sth->fetchrow_arrayref()) {
    open(my $fh, '>>', $ref->[0].'txt')    or die "open: $!\n";
    print $fh $ref->[1];
    print $fh "\n(_KJ_)\n";
}
$dbh->disconnect;