Select Code to Download

#!perl
open (FILEH, "/etc/passwd");  #open the file for read
...
        print "User: $username,  ID: $id\n";  #print junk
   }
}

grep -i root /etc/passwd | awk '{ ...

You can figure it out.