...
  return sub { my $arg1 = shift; my $arg2 = shift; ... ;};
...