diff --git a/libs/esl/perl/ESL/Dispatch.pm b/libs/esl/perl/ESL/Dispatch.pm
index 54ea1e0cb7..2523d794e5 100644
--- a/libs/esl/perl/ESL/Dispatch.pm
+++ b/libs/esl/perl/ESL/Dispatch.pm
@@ -63,7 +63,7 @@ sub render_event($;$$) {
       $callback = lc($self->{event_hash}->{'event-name'});
       print "DEBUG: executing $callback callback\n";
     }
-    &{$self->{_callback}->{lc($self->{event_hash}->{'event-name'})}}($self);
+    &{$self->{_callback}->{lc($self->{event_hash}->{'event-name'})}}($self, $self->{event_hash});
   };
 }
 
diff --git a/libs/esl/perl/dispatch.pl b/libs/esl/perl/dispatch.pl
index 477596c977..fd61913d83 100644
--- a/libs/esl/perl/dispatch.pl
+++ b/libs/esl/perl/dispatch.pl
@@ -13,13 +13,14 @@ sub worker {
 
 sub heartbeat {
   my $self = shift;
-  my $event = $self->{event_hash};
+  my $event = shift;
   print Dumper $event;
 }
 
 sub channel_hangup {
   my $self = shift;
-  my $event = $self->{event_hash}; 
+  my $event = shift;
+  print Dumper $event;
   print "DO SQL GOODIES HERE!\n";
 }