Select Code to Download

my $has_unprintable_re = qr{ [^[:print:]] }x;

...
    LogMess( 'Error: Binary input data detected', 1 );
    return -1;
}