# perl -wle 'my $min = $ARGV[0]; $min = -1 if -1 < $min; print $min' -- 100o
Argument "100o" isn't numeric in numeric lt (<) at -e line 1.
-1