open (MPRINT, "| $testconnect") || die "Can't open pipe to $mconn $!";
         print MPRINT "- Time:\n     $date\n";
         print MPRINT "- Name:\n     $frmName\n";
         print MPRINT "- Phone:\n     $frmPhone\n";
         print MPRINT "- Dept:\n     $frmDept\n";
         if ($FORM{'DeptBillingCode'}){
                 print MPRINT "- Department Billing Code:\n     $frmDeptBillingCode\n";
         }
         if ($FORM{'IDR'}){
                 print MPRINT "- IDR:\n     $frmIDR\n";<br>
         }
         print MPRINT "- Building:\n     $frmBuilding\n";
         print MPRINT "- Room Number:\n     $frmRoom\n";
         if ($FORM{'Contact'}){
                 print MPRINT "- Contact:\n     $frmContact\n";
         }
         if ($FORM{'EquipmentType'}){
                 print MPRINT "- Equipment Type:\n     $frmEquipmentType\n";
         }
         print MPRINT "- Model Number:\n     $frmModelNumber\n";
         if ($FORM{'SerialNumber'}){
                 print MPRINT "- Serial Number:\n     $frmSerialNumber\n";
         }
         print MPRINT "- Problem:\n     $frmProblem\n";
         if ($FORM{'WarrantyStatus'}){
                 print MPRINT "- Warranty Status:\n     $frmWarrantyStatus\n";
         }
         if ($FORM{'BestTime'}){
                 print MPRINT "- Best Time:\n     $frmBestTime\n";
         }
         if ($FORM{'OtherInfo'}){
                 print MPRINT "- Other Information:\n     $frmOtherInfo\n";
         }
close(MPRINT);