or download this
my ($Company, $Department, $DeptCode, $Address, $Page, $Address2, $Pho
+neNumber, $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');
...
write;