zengargoyle++ for that. But I don't see why it's necessary to chdir to the directory just to read it. Also, IO::Dir makes things somewhat easier.

  use IO::Dir;
  my @users = (IO::Dir->new($home) or die "$home: $!")->read;

  print join "\n", @users, '';
[download]

Update: thanks to zengargoyle's note below. Ooops!

  my @users =
    grep { !/^\./ and -d "$home/$_" }
    (IO::Dir->new($home) or die "$home: $!")->read;
[download]

jdporter
The 6th Rule of Perl Club is -- There is no Rule #6.