Mega Code Archive

 

Categories / Perl / Report

 

Call write to output the format

format STDOUT = @* $text @<<<<<<<<<<<<@<<<<<<<<<<<<@<<<<<<<<@<<<< $firstname   $lastname    $ID      $extension . $text = "First Line..."; $firstname = "Cary"; $lastname = "Grant"; $ID = 1234; $extension = x456; write;