Select Code to Download

#!/usr/bin/perl -w
use strict;
...

my $cmp_result = $x <=> $y;
print $cmp_result  # -1

my $cmp_result = $stringX cmp $stringY;