Я не знаю, как установить аргументы по умолчанию для подпрограмм. Вот что я рассмотрел:

sub hello {
  print @_ || "Hello world";
}

Это прекрасно работает, если все, что вам нужно, это один аргумент. Как бы вы установили значения по умолчанию для нескольких аргументов?

Я собирался сделать это:

sub hello {
  my $say = $_[0] || "Hello";
  my $to  = $_[1] || "World!";
  print "$say $to";
}

Но это много работы ... Должен быть более легкий путь; возможно, лучшая практика?