Help for this page

Select Code to Download

Select or download this

#! /usr/bin/perl
use strict;
...

    print "$count lines read from $filename\n";
}