Here's what I've been able to dig up by running perldoc perlsub. This piece of code is exactly to the point in my case. Again, thanks for pointing me in the right direction! ;-) cheers.

         sub try (&@) {
             my($try,$catch) = @_;
             eval { &$try };
             if ($@) {
                 local $_ = $@;
                 &$catch;
             }
         }
         sub catch (&) { $_[0] }

         try {
             die "phooey";
         } catch {
             /phooey/ and print "unphooey\n";
         };
[download]

"There is no system but GNU, and Linux is one of its kernels." -- Confession of Faith