while (){
----
eval{----};if($@){-----}
----
eval{----};if($@){-----}
---
eval{----};if($@){-----}
-----
-----
eval{----};if($@){-----}
-----
#and so on
}