open (USERS, '-|' , 'getent passwd' ) or die $!;
    @passwd_entries = <USERS>;

##</code><code>##

open (HOMES, '-|' , 'ls /home' ) or die $!;
    @home_dirs = <HOMES>;
    close HOMES;