perl实例之子程序

#!c:/perl/bin/perl 
 
sub add{ 
    my $a = shift; 
    my $b = shift; 
    return $a+$b; 
} 
 
$c = add(6,9); 
print $c;