>perl -wMstrict -le
"sub max {
   my ($fred, $barney) = @_;
   ;;
   if ($fred gt $barney) {
     return $fred;
     }
   else {
     return $barney;
     }
   }
 ;;
 my $n = max(2, 10);
 print $n;
"
2