...
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