#!/usr/bin/perl

use strict;
use warnings;
my $password = shift or die "args?";
my $zipfile  = shift or die "zipfile?";
my $secret_file = 'secret.txt';

# use -q (silent mode)
# use -o (overwrite mode) o unzip hangs if secret file already exists
my $cmd = "unzip -qoP $password $zipfile 2>/dev/null";
print ".cmd: [$cmd]\n";

system($cmd);
my $status = ($? >> 8);    # status of cmd, like POSIX WIFEXITED() macro

if ($status) { 
    die "**ERROR: unzip failed! status = [$status]";
}
print ".okay: got secret file! status = [$status]\n";
-f $secret_file && print qx(cat -evnt $secret_file), "\n";