Help for this page

Select Code to Download


  1. or download this
    my @lines = ();
    
    ...
    
    for(my $i = 0; $i <= 1000; $i += 100)
     {print $lines[$i] || "";}