PERL脚本实例代码

perl编程实例，与书配套的实例代码 $name="Suzanne";#Thesevariablesareinpackagemain $num=100; packagefriend;#Packagedeclaration subwelcome{ print"Whoisyourpal?"; chomp($name=); print"Welcome$name!\n"; print"\$numis$num.\n";。。。。。。。