11 lines
178 B
Perl
11 lines
178 B
Perl
# 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 $@;
|