请问<STDIN>如何结束？

请问<STDIN>如何结束？
请问这段代码开始就执行<STDIN>，当我输入完字符后怎么调出让程序继续执行？

while ($inputline = <STDIN>) {
while ($inputline =~ /\b[A-Z]\S+/g) {
$word = $&

$word =~ s/[;.,:-]$//; # 过滤标点符号
print $i;
print @wordlist;
print "\n";

for ($count = 1; $count <= @wordlist; #
$count++) {
$found = 0;
if ($wordlist[$count-1] eq $word) {
$found = 1;
$wordcount[$count-1] += 1;
last;
}
}
if ($found == 0) {
$oldlength = @wordlist;
$wordlist[$oldlength] = $word;
$wordcount[$oldlength] = 1;
}
$i++;
}
}
print ("Capitalized words and number ofoccurrences :\n");
for ($count = 1; $count <= @wordlist; $count++) {
print ("$wordlist[$count-1]: $wordcount[$count-1]\n");
}

这个问题我也晓得了．呵呵.
这个问题我也晓得了．呵呵

原来有last;