$object->method(sub { 
  my ($arg) = @_;
  # stuff
});