#!/usr/bin/perl -w

    use strict;

    open TABFILE, "tabfile" or die "Error message here: $!";

    {
        local $/ = "";
        my @array = <TABFILE>;
    }

    print scalar @array;