The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package RemoteTestEngine;
use base 'Catalyst::Engine::CGI';

our $REMOTE_USER;
our $SSL_CLIENT_S_DN;

sub env {
    my $self = shift;
    my %e = %ENV;
    $e{REMOTE_USER} = $REMOTE_USER;
    $e{SSL_CLIENT_S_DN} = $SSL_CLIENT_S_DN;
    return \%e;    
};

1;