sub my_getpwnam {
   my $name_m = shift;
   open FH, '/etc/passwd' or die "Can't open /etc/passwd, $!";
   
   my @match = grep { chomp; /^$name_m:/ } <FH>;
   if (!@match) { return (); }  # return empty list if not found
   return split /:/, $match[0];
}