#!/usr/bin/perl
#
                                                                                
                                                                                
while ( my $user = (getpwent())[0])
{
   print $user,"\n";
}