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);