サブルーチン

#!/usr/bin/perl

print"文字を入力してください：";
$a=<STDIN>;

&print_dat($a);    #サブルーチンの呼び出し

sub print_dat{     #サブルーチンの定義
    my $b=$_[0];   #引数の受け取り。myでローカル変数に
    print"$b";
}

#!/usr/bin/perl

$a=1;
$b=5;

$d=&print_dat($a, $b);    #サブルーチンの呼び出し
print"$a+$b=$d\n";

sub print_dat{            #サブルーチンの定義
    my $c=$_[0]+$_[1];    #引数の受け取り
    return $c;            #合計を返す
}