Select Code to Download

# Instead of:
$sth->execute(@data);
...
my @row = $sth->fetchrow;
# use:
my @row = map { Encode::decode('utf8', $_) } $sth->fetchrow;