Select Code to Download

my @directories = qw/code test/;
foreach my $dir (@directories) {
 $f->cwd("/home/$dir") || next
 ... # your code to fetch the files
}