programming-examples/perl/Report/Call write to output the format.pl

format STDOUT =
@*
$text
@<<<<<<<<<<<<@<<<<<<<<<<<<@<<<<<<<<@<<<<
$firstname   $lastname    $ID      $extension
.

$text = "First Line...";
$firstname = "Cary";
$lastname = "Grant";
$ID = 1234;
$extension = x456;

write;