Select Code to Download

package magic_columator;

...
    }
}

use magic_columator;

while(my @row = $col->fetchrow) {
   # do stuff
}