$DEBUG = 1; # if its 0, or undef, no printing

printf "zip_file hex [%s]\n", unpack 'H*', "$ccp_home/$new_file" if $DEBUG;

warn "WARNING zip_file has unprintable characters\n"
if  "$ccp_home/$new_file" =~ /[:^print:]/;



printf "zip_file [%s]\n", "$ccp_home/$new_file" if $DEBUG;