sub { log_to_handle( *STDERR, "app-server", @_ ) }

    curry( \&log_to_handle, *STDERR, "app-server" )

    log_to_handle_c( *STDERR, "app-server" );

##</code><code>##

     #!/usr/bin/perl

     use warnings;
     use strict;

     use AppServer;
     use AutoCurry ':all';

     sub log_to_handle { ... }

     my $appserver = AppServer->new(
         logger => log_to_handle_c( *STDERR, "app server" )
     );