#!/usr/bin/perl
sub sub_1 { die }
my $event = {
     'src'           =>  \&sub_1(q|attrib_1|),
     'file'          =>  \&sub_2(q|attrib_2|),
     'keyword'       =>  \&sub_3(q|attrib_3|),
};

$ /tmp/bla.pl
Died at /tmp/bla.pl line 2.
Exit 255