my $removeq = $remove;
        my $sourcefile = "/u/ccsys/CC_print.printers";
        my $tempfile = "/u/ccsys/CC_print.printers.bkp_mkpq";
        &cleanthefile( $removeq, $sourcefile, $tempfile );