Hi, I have modified the code.

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

sub sortByColor 
{ 
    my $filename = $_[0]; 
    my $no_of_columns = $_[1]; 
    ... 
    }
[download]

And I am using the following modules. I did not paste the m here before.

use strict;
use warnings;
use POSIX qw(strftime);
use Net::Google::Drive::Simple;
use WWW::Mechanize;
use HTTP::Cookies;
use LWP::Debug qw(+);
use URL::Encode;
use URI::Escape;
use Date::Simple qw(date);
use File::Copy;
use Data::Table::Excel;
use Data::Dumper;
use Modern::Perl;
use Tie::File qw();
use Switch;
use Win32::OLE::Const "Microsoft Excel";
use Digest::MD5 qw(md5_hex);
use IO::Uncompress::Unzip qw(unzip $UnzipError);
[download]

This script automates a process that usually takes 5 hours of manual work each day. And I was able to reduce it to 15 mins. Thank you all for your help.I completed it.