Select Code to Download

#!/usr/bin/env perl

use strict;
...
    }
    return 'white';
}

#!/usr/bin/env perl

use strict;
...
}
print '</table>', "\n";
print '<!-- run length compression saved ', $saved, ' table fields-->'
+, "\n";