#!/usr/bin/perl
#define function
sub Hello(){
print "Hello,world\n"
}
#calling function
Hello();
#define G() function
sub G(){
print "Hello ,G\n"
}
#calling G() function
G();
sub add_a_b(){
$c=$a+$b;
print "$c\n"
}
$a=5;
$b=6;
add_a_b();
#再perl中，如果函数调用后面跟着一个用括号括起来的列表，则在函数调用期间该列表将被自动分配给以@_命名的特殊变量