Select Code to Download

#!perl

...
 
#Sort the file based on "Call Type" Column (F is column number 5, as A
+ is 0)     
   $Excel->sort_data('WorksheetName',5,'DESC');

#Find Last Column and Row
my $LastRow = $Sheet->UsedRange->Find({What=>"*", SearchDirection=>xlP
+revious, SearchOrder=>xlByRows})->{Row};
my $LastCol = $Sheet->UsedRange->Find({What=>"*", SearchDirection=>xlP
+revious, SearchOrder=>xlByColumns})->{Column};