Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
use 5.010;  #if you are using version 5.10 or higher.
  2. or download this
    my $count = 1;
while (my $line = <STDIN>) { ...