サブルーチン

#!/usr/bin/perl

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

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

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

#!/usr/bin/perl

$a=1;
$b=5;

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

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