CDE

Task/Exceptions/Perl/exceptions-1.pl

@@ -0,0 +1,11 @@
+# throw an exception
+die "Danger, danger, Will Robinson!";
+
+# catch an exception and show it
+eval {
+    die "this could go wrong mightily";
+};
+print $@ if $@;
+
+# rethrow
+die $@;

Task/Exceptions/Perl/exceptions-2.pl

@@ -0,0 +1,2 @@
+# throw an exception
+die "Danger, danger, Will Robinson!";

Task/Exceptions/Perl/exceptions-3.pl

@@ -0,0 +1,6 @@
+# catch an exception and show it
+try {
+    die "this could go wrong mightily";
+} catch {
+    print;
+};

Task/Exceptions/Perl/exceptions-4.pl

@@ -0,0 +1,2 @@
+# rethrow (inside of catch)
+die $_;