#!/usr/bin/perl
# file: count_lines.pl
# Figure 1.4: Count the lines of a file

use strict;
use IO::File;

my $file    = shift;
my $counter = 0;

my $fh = IO::File->new($file) or die "Can't open $file: $!\n";
while ( defined (my $line = $fh->getline) ) {
  $counter++;
}

STDOUT->print("Counted $counter lines\n");