# perl -wle 'my $max = $ARGV[0]; $max = -1 if -1 > $max; print $max' -- -info
Argument "-info" isn't numeric in numeric gt (>) at -e line 1.
-1