Help for this page

Select Code to Download

Select or download this

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

  print join "\n", @users, '';

Select or download this

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