Select Code to Download

#!/usr/bin/perl –w
...
open(OUTF,">outdb.txt");
 print OUTF;
 close(OUTF);

#find the files I want to change
    
...
        },
        $directory
    );