I think a little more idiomatic construct would be:

eval {
   ...
}
die if $@;
[download]

Which will propagate the $@ (appending "... propagated" if $@ is a string, and calling $@->PROPAGATE() if $@ is an object, and then issuing die $@ (this is only documented from perl 5.6, so it might not work like this on older perls...)

See also:

perldoc -f die
[download]

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.
[download]