Select Code to Download

#!/usr/bin/perl
use strict;
...
sub min {
    return (($_[0] <= $_[1]) ? $_[0] : $_[1]);
}

Number common = 4