Help for this page
use IPC::Run3; my $output; run3("unzip -P $password $zipfile", undef, \$output, \$output);