15 lines
341 B
Perl
15 lines
341 B
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;
|