# Custom file save routine to handle unicode files
sub SaveUTF {
	my ( $w, $filename ) = @_;
	$filename = $w->FileName unless defined $filename;
	my $dir   = dirname($filename);
	my $perms = ( stat($dir) )[2] & 07777;
	unless ( $perms & 0200 ) {
		$perms = $perms | 0200;
		chmod $perms, $dir
		  or $w->BackTrace("Can not write to directory $dir: $!\n")
		  and return;
	}