Report Perl

format STDOUT_TOP =
                  Employees
First Name   Last Name    ID       Extension
--------------------------------------------
.
format STDOUT =
@<<<<<<<<<<<<@<<<<<<<<<<<<@<<<<<<<<@<<<<
$firstname   $lastname    $ID      $extension
.
$firstname = "Cary"; $lastname = "Grant";
$ID = 1234; $extension = x456;
write;