open(DEST,'>',$ggg) or die $!;

sysopen(DEST, $ggg, O_WRONLY | O_TRUNC | O_CREAT) or die $!;