############################################
#ex1-1.pl

###1-precitise
#!/usr/bin/Perl
print"hello world\n";
print"hello world\n";

use 5.010;
say"hello world!";

############################################

#ex1-2.pl

#直接在命令提示符后面敲perldoc -u -f atan2

############################################

#ex1-3.pl
#!/usr/bin/Perl
@lines = perldoc -u -f atan2;
foreach(@lines){
s/\w<([^>]+)>/\U$1/g;
print;
}
print"the answer is ";
print 6*7;
print “.\n”;