@ARGV=qw# larry moe curly#;
while (<>)
{
chomp;
print "It was $_ that I saw in some stooge_like file!\n";
}
#从larry,moe和curly三个文件中读取行信息
@ARGV=qw# larry moe curly#;
while (<>)
{
chomp;
print "It was $_ that I saw in some stooge_like file!\n";
}
#从larry,moe和curly三个文件中读取行信息