從指定位置讀取資訊

@ARGV=qw# larry moe curly#;

while (<>)

{

 chomp;

 print "It was $_ that I saw in some stooge_like file!\n";

}

#從larry,moe和curly三個檔案中讀取行資訊