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;

##</code><code>##

               US LEC

               8210 University Exec Park Dr.
1 of 4
               704.319.6297                               20
               10 07 2002  Chad Johnson

##</code><code>##

<<<<<<<<<<<<<<US LEC
<<<<<<<<<<<<<<
<<<<<<<<<<<<<<8210 University Exec Park Dr.
1 of 4
<<<<<<<<<<<<<<704.319.6297                               20
               10 07 2002  Chad Johnson