PerlAuthenHandler MyOverride->handler #### sub handler { my $r = shift; ... #### -- #!/usr/bin/perl for(ref bless[],just'another'perl'hacker){s-:+-$"-g&&print$_.$/}