Select Code to Download

use warnings;
...
}

print A ($ARGV[0], $ARGV[1]);

C:\>trash 3 3

...
entering, $_[0] is -2
entering, $_[1] is 2
not returning : $_[1] is 1

    if ($_[0] <= 0) {print "2nd -- returning 2*\$_[1] ($_[1])\n"; retu
+rn 2*$_[1] }