Select Code to Download

chdir to dir1
for contents of each file in dir1 do
...

chdir to dir3
etc..

#!/usr/bin/perl
use strict;
...
        }
    close(FILE);
    }