使用Active PerL
#1st.pl
#perl是一门强大的解释性语言
#first perl code
print "=====================";
print "/nbe brave!";
print "/ninput 1st number:/n";
chomp($abc=<STDIN>);
print "input 2nd number:/n";
chomp($otherabc=<STDIN>);
print "$abc*$otherabc = ",$abc*$otherabc,"/n";
输出结果：
