sysopen(DEST, $ggg, O_WRONLY | O_TRUNC | O_CREAT) or $self->ascii_error("Cant upload files: $! File: $ggg");