...
use Fcntl;
...
$ggg =~ s/\s//g; # no spaces - just incase
open(DEST, ">", $ggg) or $self->ascii_error("Cant upload files: $! File: $ggg"); # this works fine

##</code><code>##

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

##</code><code>##

open(FH, ">", $path);
sysopen(FH, $path, O_WRONLY | O_TRUNC | O_CREAT);