#!/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" )
     );