#!/usr/bin/perl
    use strict;
    use HSP;
    if ($ENV{MOD_PERL}) {
        my @keys = keys %HSP::;
        my $do = '';
        foreach(@keys){ $do .= "local *HSP::$_ = *HSP::$_;"; }
        $do .= 'HSP::handle();';
        eval $do;
    } else {
        HSP::handle();
    }