use strict;
use warnings;
use Win32::OLE;
use Date::Calc;

my ($f_mfg_desk, $f_mfg_desk_output, @wip_query, $opr_cd, @header,
    %header_data, @row_array, $BREAK, $Oper_Cd, @newrow, $start_time);

# This gets the document from the server
$f_mfg_desk = '//163.10.50.33/planning/logistics/programs/chicago_wip_query.txt';

@header = ("Oper_Cd","Pick_Ref_Num","Part_Id","Lot Qty","Order Id",
           "Order Lineitem Id","Order Lineline Id","Sublot Num",
           "Comm Invoice Num","Oper In Dt","Cust Early Shp Dt",
           "Cust Late Shp Dt","Current Date","Business Class Cd",
           "Action Expedite Flg","Required Ship Saleable",
           "Required Ship Inventory Transfer","Total Required Ships");

$start_time = time;

open (INFILE, '//163.10.50.33/planning/logistics/programs/chicago_wip_query.txt');
while (<INFILE>) {
    chomp;
    @newrow = spli
    
    t /\t/;
    $header_data{$newrow[2]} = [$newrow[3..18]];
     }
   
    close(INFILE)