Need a script written - can anyone help?

Threw this together:

Code:

#!/usr/bin/perl
open (IN, "</etc/trueuserdomains") or die;
my @data = <IN>;
close (IN);
chomp @data;

my %users;
foreach my $line (@data) {
	my ($domain,$user) = split(/\s/,$line);
	$users{$user} = 1;
}

opendir (DIR, "/home") or die;
while ($file = readdir(DIR)) {
	if ((-d "/home/$file") and ($file !~ /^\./)) {
		unless ($users{$file}) {print "/home/$file is not a current cPanel user directory\n"}
	}
}
closedir (DIR);