Smokeping PSGI app

smokeping.psgi

#!/usr/bin/perl
use strict;
use warnings;

use CGI::Emulate::PSGI;

my $app = CGI::Emulate::PSGI->handler(sub {
    use CGI;
    use Smokeping;
    CGI::initialize_globals();
    my $cfg = "/etc/smokeping/config";
    my $q = CGI->new;
    Smokeping::cgi($cfg, $q);
});

It works for me. Thanks.
I followed this artical but he's script seem too old to work.