First, set up a list of directories.

$f->cwd($dir) or die "Can't cwd to $dir\n";

Next, instead of dieing in case of inability to CWD, switch to the next list element in a foreach loop.

For example:

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