print FH "deptno, dname, loc\n";
[download]

But you could also derive the column names at run time from your statement handle (using $sth->{NAME}). Unless you don't know your column names in advance, I'd go for the simple print option