while (<$conf>) {

        while (my $line = <$conf>) {

            my @tokens = split /\s/, $_;

            my @tokens = split /\s/, $line;

    while (readdir $tarballshandle) {
        next unless $_ =~ /.*-coverity-int\.(tgz|lzma|xz|bz2|zip)$/;
        $covTarball = "$tarballs/$_"; last;

    while (my $file = readdir $tarballshandle) {
        next unless $file =~ /.*-coverity-int\.(tgz|lzma|xz|bz2|zip)$/;
        $covTarball = "$tarballs/$file"; last;

    while (<$authfile>) {
        if ( $_ =~ /(.+):(.+)/m ) {

    while (my $line = <$authfile>) {
        if ( $line =~ /(.+):(.+)/m ) {

while(readdir $dir) {
    next if $_ eq "." or $_ eq "..";
    unlink "$gcRootsDir/$_";

while(my $file = readdir $dir) {
    next if $file eq "." or $file eq "..";
    unlink "$gcRootsDir/$file";