Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...

close($DATABASE) 
    or die("ERROR: cannot close database $path/$database! $!");