perl-qt: fixed