Select Code to Download

#!/usr/bin/perl -w
use strict;
...

        return $num_mismatch;
}

__END__

...
                    }
        };

# Which is the same as $d = 0
$VAR1 = {
...
                    }
        };