use warnings;
use strict;
use User::pwent;
use Path::Class qw/dir/;

my $home = dir('/home');
while (my $pwent = getpwent) {
	print join(' ', map {$pwent->$_} qw/name uid dir/ ),"\n"
		unless $home->subsumes( dir($pwent->dir) );
}