my ($Company, $Department, $DeptCode, $Address, $Page, $Address2, $PhoneNumber, $NumPieces, $DatRcvd, $Month, $Day, $Year, $SubmittedBy) = ('US LEC','','','8210 University Exec Park Dr.','1 of 4','','704.319.6297','20','','10','07','2002','Chad Johnson');

my $NULL = '';





format STDOUT =
@<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$NULL,     $Company
@<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<
$NULL, 	  $Department,				     $DeptCode
@<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$NULL,	  $Address,
@<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$Page,	  $Address2
@<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<
$NULL,	  $PhoneNumber,				     $NumPieces
@<<<<<<<<<<<<<<@<<@<<@<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$DatRcvd, $Month,$Day,$Year,		 $SubmittedBy
.


write;