Perl Ошибка компиляции в файле .xlsx

Question

#!C:\Perl\bin 
#excel::writer attempt 
#allows IR-Serial-Parts tracking 

use strict; 
use warnings; 
use POSIX qw(strftime); 
use Excel::Writer::XLSX; 
use Spreadsheet::WriteExcel; 


my $ref = strftime '%Y-%m-%d', localtime();  #create the datestamp 
my $workbook; 
my $worksheet; 
my $i = 1; 
my $ir = "IR Number: "; 
my $sr = "UUT Serial: "; 
my $pur = "How many parts used: "; 
my $part = "Scan Part: "; 
my @parts = ""; 


    if(-e 'tracking.xlsx'){ 
     my $workbook = Spreadsheet::WriteExcel->open('tracking.xlsx'); #open existing excel file 

    } 
    else{ 
     my $workbook = Excel::Writer::XLSX->new('tracking.xlsx'); #open new Excel if the date on comp has changed 

    } 
     $worksheet = $workbook->add_worksheet($ref); 
     print $ir; #ask user for IR # 
     my $irs = <>; #get user IR 
     print $sr; #ask user for serial 
     my $isr = <>; #get serial from user 
     print $pur; #get the number of parts used that way we can run the while loop below 
     my $count = <>; 

    While ($i < $count){ 

     print $part; 
     my $scan = <>; 
      push @parts, $scan; 
      $i++; 
     } 




      $worksheet->write('A1', '$irs'); 
      $worksheet->write('A2', '$isr'); 
      $worksheet->write('A3', '@parts'); 

Этот скрипт находится на первых этапах разработки. и я не перл-бог, на самом деле я совершенно новый, но это так здорово !!! Когда я побежал в первый раз, у меня были некоторые ошибки, достаточно простые, чтобы работать с сообщениями об ошибках, но я не могу понять это, и я считаю, что было бы легче исправить, чем мои предыдущие ошибки, какую-либо помощь, объясняющую, почему это будет потрясающе!

syntax error at writexcel.pl line 39, near "){" 
syntax error at writexcel.pl line 45, near "}" 
Execution of writexcel.pl aborted due to compilation errors. 
Press any key to continue . . . 

Answer 1

Как @ThisSuitIsBlackNot отметил while в мое время цикла был capatilized и должен был быть в нижнем регистре. Спасибо за быстрый ответ!