Select Code to Download

use warnings;
use strict;
...
    print "$name $uid $home\n"
        if $home !~ m{^/home/} || ! -d $home;
}

use warnings;
use strict;
...
    print $pwent->name," ",$pwent->uid," ",$pwent->dir,"\n"
        if $pwent->dir !~ m{^/home/} || ! -d $pwent->dir;
}

use warnings;
use strict;
...
    print join(' ', map {$pwent->$_} qw/name uid dir/ ),"\n"
        unless $home->subsumes( dir($pwent->dir) );
}