Select Code to Download

use warnings;
use strict;
...
   print "$error\n";
}
print "cellpattern\n";

pattern1
pattern2
...
error1
error3
cellpattern