sub reload_modules {
    for (keys %INC) {
        if (/^QStat/) {
            delete $INC{$_};
            require $_;
        }
    }