perl 引数をひとつ取るサブルーチン

#引数を取るサブルーチンの呼び出し

#サブルーチン呼び出し
&hello_arg("太郎");

#サブルーチンの定義
#サブルーチンの引数はリスト@_に入る。myを使ってローカル変数として定義する。
sub hello_arg{
    my($name) = @_;
    print "こんにちは、私は$nameです。\n";
}

#実行結果
# こんにちは、私は太郎です。