Select Code to Download

% stephan@ape (/home/stephan/t0) %
% echo 'just another perl hacker' > secret.txt
...
.okay: got secret file! status = [0]
     1  just another perl hacker$

#!/usr/bin/perl

...
print ".okay: got secret file! status = [$status]\n";
-f $secret_file && print qx(cat -evnt $secret_file), "\n";

% stephan@ape (/home/stephan/t0) %
% perl safe_unzip.px sesame safe1.zip
...
**ERROR: unzip failed! status = [9] at safe_unzip.px line 18.