関数の例

関数の例
sub print_author {
my $author = shift;
my $date = shift;
print “*****************************************\n”;
print “ This work was done by $author\n”;
print “*****************************************\n”;
print “ Last update: $date\n”;
}
print_author(“Yukichi Fukuzawa”, “April 3.”);
print_author(“Shigenobu Okuma”, “April 4.”);