Select Code to Download

that printed:
  A B C D E
...
C 0 1 0 1 1
D 0 0 1 0 0
E 0 0 1 0 0

#!/usr/bin/perl -w
use strict;
...
      print shift @vars, " @$_\n";
   }
}