Select Code to Download

sub bind {
  my ($callback, @args) = @_;
  $callback->(@args);    
}

bind(\&debug, "Entering xxx()");
...
bind(\&logit, "Username : $user logged in")
... and so on...

sub bind {
  my $monad = shift;#self
...
...
$monad->bind(\&logit, "Username : $user logged in")
... and so on...