Select Code to Download

$ perl -MList::MoreUtils=minmax -wMstrict -e '
 my ($n,$x) = minmax(sprintf("%.4g",0.5)); die unless defined $x'
Died at -e line 2.

use warnings;
use strict;
...
    my ($min,$max) = minmax(sprintf("%.4g",$in));
    last unless defined $max;
}