Select Code to Download

sortByColor("D:/sort.xls",12); 

...
    my $no_of_columns = $_[1]; 
    ... 
    }

use strict;
use warnings;
...
use Win32::OLE::Const "Microsoft Excel";
use Digest::MD5 qw(md5_hex);
use IO::Uncompress::Unzip qw(unzip $UnzipError);