Select Code to Download

use strict;
use warnings;
...
        "2 and 3 are equivalent\n" : "2 and 3 are not equvalient\n");
print(($d3->normalized() == $d1->normalized) ? 
        "3 and 1 are equivalent\n" : "3 and 1 are not equvalient\n");

they are not equvalient
1 and 2 are not equvalient
2 and 3 are not equvalient
3 and 1 are not equvalient