Select Code to Download

use strict;
use warnings;
use win32::ole;

my ($f_mfg_desk, $f_mfg_desk_output, $record,@wip_query, $wip_query, $
+opr_cd, @header,
    $header, %header, $x, $row, $row_array, @row_array, @rule_array, $
+BREAK,
...
    $local_outfile_timestamp, $remote_outfile_timestamp, $local_outfil
+e_latest,
    $remote_outfile_web, $Oper_Cd, $Pick_Ref_Num, $Part_Id, @header_da
+ta,
    $newrow, @newrow, $head);

# This gets the document from the server
$f_mfg_desk = '//142.22.50.34/planning/logistics/programs/wip_query.tx
+t';

...

...
    $record = $_;
    chomp($record);
    @newrow = split(/\t/,$record);

while (my $record = <INFILE>) {

while (<INFILE>) {
    chomp;
    @newrow = split /\t/;

    $header_data{$newrow[2]} = [$newrow[3], $newrow[4], $newrow[5], $n
+ewrow[6], $newrow[7], $newrow[8], $newrow[9], $newrow[10], $newrow[11
+], $newrow[12], $newrow[13], $newrow[14], $newrow[15], $newrow[16], $
+newrow[17], $newrow[18]];
    }

$header_data{$newrow[2]} = [@newrow[3..18]];