#!/usr/bin/perl

use strict;
use Expect;

my $object = Expect->spawn( "bash" ) or
  die "Could not spawn bash shell.\n";
$object->log_stdout(0);
$object->max_accum( 128 * 512 );
my $header = "Test Log Header";
$object->send( "cat test_log.txt\n" );
my ($matched_pattern_position, $error,
  $successfully_matching_string, $before_match, 
  $after_match) =$object->expect( 5 , -re => $header );
if( $error ne undef ) {
  die "Could not find header.\n";
}
my @rows = split /^/ , $after_match;
printf "Found %d lines after match in file.\n", scalar( @rows );