Help for this page
Select Code to Download
Select
or
download this
my $count = 0; $count++ while <FILE>;
Select
or
download this
1 while <FILE>; my $count = $.;