#!/usr/bin/perl -w

use strict;

open INPUT, "</etc/passwd" or die "Can't open file #!\n";

my @lines;

while (<INPUT>) {

    chomp;
    @lines = split /:/;

    write();
}

format STDOUT_TOP =
NAME                    ID
----                    --
.

format STDOUT =
@<<<<<<<<<<<<<<         @<<<<<<<<<<<<<<<<<<
$lines[0], $lines[4]
.