List users
#!/usr/bin/perl use warnings; use strict; my @users; while (my $name = getpwent) { push @users, $name; } print "Users: @users \n";