#! /usr/bin/perl

$a = 3;
$b = 4;

# かけ算
$result = $a * $b;

# サブルーチンを呼ぶ
$c = &calc(10,25);

print "a: $a\n";
print "b: $b\n";
print "c: $c\n";
print "result: $result\n";

# calcサブルーチン
# ※変数名に a,b,result を用いているが、上記の同名の変数には影響しない。
sub calc
{
	my $a = shift @_;	# 第1引数を代入
	my $b = shift @_;	# 第2引数を代入
	
	my $result = $b - $a;	# 引き算
	
	return $result;
}

exit;