print"\n";
 open (my $QBF, "QBF.txt");
 while (<$QBF>) {
       print;
 }