my $extract_file = $start_path . $env . "\\mrf" . $mrf_num . "\\$item"; my $zip = Archive::Zip->new(); if($zip->read($extract_file) != AZ_OK) { die "Unable to decompress zip file '$extract_file'"; }