if (!eval { some_module_function( $param1 , $param2 , .. ); 1 }) {
   my $die_Message = $@;
   ...
}

##</code><code>##

use Try::Tiny qw( try catch );

try {
   some_module_function( $param1 , $param2 , .. );
} catch {
   my $die_Message = $_;
   ...
};