Select Code to Download

#!/usr/bin/perl
use strict;
...
say $x cmp $y;

$x eq $y ? say 'equal' : say $x.' '.$y;

-1
765.7 765.7
...
0
equal