Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        ,  @line[0..3], $line[4]**2,
        ,  @box;
}

__END__
 1  0 1 5 4
...
           |
         -4+
           |

        for my $p ( $s, !$s ) {  # Which point