Select Code to Download

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

sub cleanthefile {
    my @filehandles;
...

    }
}