Help for this page
#!/usr/bin/perl use strict; ... $col++; print "$col,"; }
#!/usr/bin/perl ... undef $book; undef $ex; close CURR;