if (@{$memoryfile}[0]=~/([^[:print:]])/ ||
        @{$memoryfile}[1]=~/([^[:print:]])/ ) {
        LogMess("Error: Binary input data detected",1);
        return -1;
    }