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

or

use Try::Tiny qw( try catch );

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

eval, Try::Tiny