RosettaCodeData/Task/Integer-comparison/Perl/integer-comparison-2.pl

sub test_num {
    return $_[0] <=> $_[1];
};