Help for this page

Select Code to Download

Select or download this

use strict;
my $length=0;
...
   $length += length;
}
print $length, "\n";