Index: updataADDR_2.4G.pl
===================================================================
--- /branch/mouse/TestTools/1306AA_OTP_Download/download/updataADDR_2.4G.pl	(revision 306)
+++ /branch/mouse/TestTools/1306AA_OTP_Download/download/updataADDR_2.4G.pl	(working copy)
@@ -1,9 +1,9 @@
 $eeprom_path=$ARGV[0];
 $address_path=$ARGV[1];
-open (file , $eeprom_path)||die ("Could not open file");
+open (file , $eeprom_path)||goto enter_exit;
 @text = <file>;
-open (Result , ">$eeprom_path")||die ("Could not open file");
-open (Address , $address_path)||die ("Could not open file");
+open (Result , ">$eeprom_path")||goto enter_exit;
+open (Address , $address_path)||goto enter_exit;
 @Address = <Address>;
 close(Address);
 $Address = @Address[0];
@@ -53,7 +53,7 @@
 			if($ADDRSub>=6){
 				$Match=0;
 				$HavedADDR=0;
-				open (Address , ">$address_path")||die ("Could not open file");
+				open (Address , ">$address_path")||goto enter_exit;
 				print Address ("00 00 00 00 00 00");
 				close(Address);
 			}
@@ -150,17 +150,17 @@
 
 if($Die==1){
 	print ("ERROR :address structure is error in address.hex\n");
-	open (Address , ">$address_path")||die ("Could not open file");
+	open (Address , ">$address_path")||goto enter_exit;
 	print Address ("00 00 00 00 00 00");
 	close(Address);
 }
 elsif($Die==2){
 	print ("ERROR :address data is error in address.hex\n");
-	open (Address , ">$address_path")||die ("Could not open file");
+	open (Address , ">$address_path")||goto enter_exit;
 	print Address ("00 00 00 00 00 00");
 	close(Address);
 }
-open (Address , ">$address_path")||die ("Could not open file");
+open (Address , ">$address_path")||goto enter_exit;
 print Address ("00 00 00 00 00 00");
 close(Address);
 close(Result);
@@ -187,4 +187,10 @@
 	$MatchFirstVal="";
 	$MatchStr="";
 	$MatchBit=1;
-}
\ No newline at end of file
+}
+
+exit(0);
+
+enter_exit:
+	print ("Could not open file\n");
+	sleep();
Index: updataADDR_BLE.pl
===================================================================
--- /branch/mouse/TestTools/1306AA_OTP_Download/download/updataADDR_BLE.pl	(revision 306)
+++ /branch/mouse/TestTools/1306AA_OTP_Download/download/updataADDR_BLE.pl	(working copy)
@@ -1,9 +1,9 @@
 $eeprom_path=$ARGV[0];
 $address_path=$ARGV[1];
-open (file , $eeprom_path)||die ("Could not open file");
+open (file , $eeprom_path)||goto enter_exit;
 @text = <file>;
-open (Result , ">$eeprom_path")||die ("Could not open file");
-open (Address , $address_path)||die ("Could not open file");
+open (Result , ">$eeprom_path")||goto enter_exit;
+open (Address , $address_path)||goto enter_exit;
 @Address = <Address>;
 close(Address);
 $Address = @Address[0];
@@ -52,7 +52,7 @@
 			if($ADDRSub>=6){
 				$Match=0;
 				$HavedADDR=0;
-				open (Address , ">$address_path")||die ("Could not open file");
+				open (Address , ">$address_path")||goto enter_exit;
 				print Address ("00 00 00 00 00 00");
 				close(Address);
 			}
@@ -149,17 +149,17 @@
 
 if($Die==1){
 	print ("ERROR :address structure is error in address.hex\n");
-	open (Address , ">$address_path")||die ("Could not open file");
+	open (Address , ">$address_path")||goto enter_exit;
 	print Address ("00 00 00 00 00 00");
 	close(Address);
 }
 elsif($Die==2){
 	print ("ERROR :address data is error in address.hex\n");
-	open (Address , ">$address_path")||die ("Could not open file");
+	open (Address , ">$address_path")||goto enter_exit;
 	print Address ("00 00 00 00 00 00");
 	close(Address);
 }
-open (Address , ">$address_path")||die ("Could not open file");
+open (Address , ">$address_path")||goto enter_exit;
 print Address ("00 00 00 00 00 00");
 close(Address);
 
@@ -187,4 +187,10 @@
 	$MatchFirstVal="";
 	$MatchStr="";
 	$MatchBit=1;
-}
\ No newline at end of file
+}
+
+exit(0);
+
+enter_exit:
+	print ("Could not open file\n");
+	sleep();
\ No newline at end of file