my $x = 0;
			
			if($x == 0){  
			if (-e "backup/$dpath/$dfile"){
			print "done";
			exit;
			}
			
			fcopy("$dpath$dfile", "backup/$dpath");