se strict;
use warnings;
#use POSIX qw(DBL_MAX);
my $x = $ARGV[0] // -11;
my $y = $ARGV[1] // -13;
my $z = $ARGV[2] // -17;
#my $MAX_NEG = -DBL_MAX;
my $MAX_NEG = -99999;      # Better to use DBL_MAX from POSIX
my $max = $MAX_NEG;

if ( $x % 2) {
    $max = $x ;
}
if ( $y % 2 and $y > $max ) {
    $max = $y ;
}
if ( $z % 2 and $z > $max ) {
    $max = $z ;
}
die "There are no odd values.\n" if ($max == $MAX_NEG) ;
print "the largest odd number is $max.\n";