{ open local(*STDOUT), "> $log" or die $!; open local(*STDERR), ">>&STDOUT" or die $!; flock(STDOUT, LOCK_EX | LOCK_NB) or die $!; #### truncate STDOUT, 0; #clear out STDOUT to start with a fresh log file. chdir $local_dir or die "Cannot change to $local_dir. $!"; #### system $pkunzip, '-doA', "$local_dir/$file"; }