sub handler {
    my $p1 = "ok";
    my $erg = up();
    exit;
    sub up {
        return $p1;
    }
}