Select Code to Download

1 1 1
2 2 2
3 3 3
4 4 4
5 5 5

   
    #!/usr/bin/perl
    use strict;
...
    close OUT;

    print "Done.\n";

1 to 2 Distance=1.00000
1 to 3 Distance=1.00000
...
5 to 2 Distance=5.00000
5 to 3 Distance=5.00000
5 to 4 Distance=5.00000