Perl file unzip

use IO::Uncompress::Unzip qw(unzip $UnzipError) ;

$file_input = 'myfile.zip';
$file_output = 'myfile.xls';

unzip $file_input => $file_output, BinModeOut => 1;