Select Code to Download

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

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

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

     #!/usr/bin/perl

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