Select Code to Download

if ($remove) {
    $remove = lc($remove);
...
            die "You chose NOT to remove queue \"$removeq\"\n";
        }
    }

sub clean_the_file {
    my $sourcefile = "/u/ccsys/CC_print.printers";
...
        system("rm -rf $tempfile");
    }
}

 
sub cleanthefile {
    my @filehandles;
...
        system("cp -R $_[1] $_[3]");
    }
}

Command that was run
mkpq -r queue-03