init III

Perl catch die/test.pl

@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+$ok = eval {
+
+
+
+# while(1) {
+  #die "bye";
+#  sleep 1;
+#  last;
+# }
+
+
+
+ #return 1;
+};
+
+print "ok: '$ok'\n";
+print "died $err#\n" if(!$ok);
+print "exited normally $err#\n" if ($ok);