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