for (qx($^X $proggi)) {
    $protokoll->insert('end', $_);
}