$app_server = AppServer->new(
        logger => curry( \&log_to_handle, *STDERR, "app-server" ),
        ...
);

##</code><code>##

$app_server = AppServer->new(
    logger => sub { log_to_handle( *STDERR, "app-server", @_ ) },
    ...
);