Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print "\n3: ", mySort( "8","7" ), "\n";

print "\n\$a: $a, \$b : $b\n";

G:\>perl -w test.pl

1: -1
...
3: -1

$a: 5, $b : 6