Select Code to Download

#!/usr/bin/perl
use strict;
...
3 3 3
4 4 4
5 5 5

1 1 1
2 2 2
...
(3,4) to (3,4) Distance=1.73205
(3,5) to (3,5) Distance=3.46410
(4,5) to (4,5) Distance=1.73205