Select Code to Download

#!/usr/bin/perl

...
    ? $d[$r][$c] + min(path($r+1, $c), path($r+1, $c+1))
    : $d[$r][$c]
  }