Help for this page

Select Code to Download

Select or download this

while ($i = <STDIN>) {
    chomp $i;
    if ($i) {
...
        last;
    }
}