Help for this page
Select Code to Download
Select
or
download this
my $buf; while (1) { ... } ... }