use strict; use warnings; use SQL::Statement; my $stmt = SQL::Statement->new(<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