Select Code to Download

use strict;
use warnings;
...
    my ($a, $b) = @_;
    return $a < $b ? $a : $b;
}

Subroutine [max]
=================
...
    my ($a, $b) = @_;
    return $a < $b ? $a : $b;
}