Select Code to Download

sub record{
        ($value, $max, $min)=@_;
...
        
$myrecord=record(100,1000,10);
print $myrecord->{max};

$myrecord = record(100, 1000, 10) or die "That's odd";

return $value >= $min && $value <= $max ?
    {
...
    }
:
    {};