printf "Columns             %s\n",join( ',', map {$_->name} $stmt->column_defs() );

##</code><code>##

print Dumper $stmt->column_defs();