PERL脚本实例代码

perl编程实例，与书配套的实例代码 $name="Suzanne"; # These variables are in package main $num=100; package friend; # Package declaration sub welcome { print "Who is your pal? "; chomp($name=<STDIN>); print "Welcome $name!\n"; print "\$num is $num.\n";。。。。。。。