#!/usr/bin/perl -w
use strict;

my $STDOUT_TOP= <<END_TOP;
ID         First Name Last Name    Email Address      Phone Number Date       Comp. Manufacturer Comp. Model Model Number OS 
========== ========== ============ ================   ============ === ======= ================== =========== ============ =============
END_TOP

print $STDOUT_TOP;