Select Code to Download

use warnings;
     
...
     
print ( (sort {$b <=> $a} grep defined, 
                    @_)[ 0 ], " - was a max defined value\n" );

STDOUT:
8
STDERR:
print (...) interpreted as function at prog.pl line 5.