sub call {
  my ($arg1,$arg2) = @_;
  my $callback = sub {
    my ($arg3) = @_;
    return $arg1 + $arg2 + $arg3;
  };
  call_func_needing_callback($callback);
}

# or even

sub call {
  my ($arg1,$arg2) = @_;
  call_func_needing_callback( sub {
    my ($arg3) = @_;
    return $arg1 + $arg2 + $arg3;
  });
}