第二章

##读取键盘收入
$line = <STDIN>;
if ( $line eq "
"){
print "1------null
";
}
else {
print "2----$line
";
}