Select Code to Download

#!/usr/bin/perl
use strict; 
...
    $col++;
    print "$col,";
  }

#!/usr/bin/perl
...
        undef $book;
        undef $ex;
    close CURR;