Oh duh, silly me, I should have known ikegami would not make a mistake like that. Still, I think SQL::Statement is playing the game correctly. Witness:

use strict;
use warnings;

use SQL::Statement;

my $stmt = SQL::Statement->new(<<END_SQL, SQL::Parser->new);
SELECT id,
             gid,
             card,
             "set",
             illus,
             num
        FROM Print
END_SQL

print join( "\n\t" => $stmt->command, map{ $_->name } $stmt->columns),
+ "\n";

__PRODUCES__
SELECT
        ID
        GID
        CARD
        "set"
        ILLUS
        NUM
[download]

Perhaps Print."set" may be advisable. In that case, the output changes slightly:

SELECT
        ID
        GID
        CARD
        "SET"
        ILLUS
        NUM
[download]