Select Code to Download

use strict;
use warnings;
...
print "\n$d2 is ",
    ($d2 ge $d1 ? 'greater than or equal to' : 'less than'),
    " $d1\n";

use strict;
use warnings;
...
print "\n$d2 is ",
    ($tp2 >= $tp1 ? 'greater than or equal to' : 'less than'),
    " $d1\n";