Perlで、関数の引数にデフォルト値を設定できますか。
function f1($x=0, $y='foo') {
　...
}
のような感じです。
もしできるなら、そのやり方を教えてください。
今は
sub f1 {
　my ($x, $y) = @_;
　$y = 'foo' if $y == undef;
}
というかっこわるい書き方をしています。