#!/usr/bin/perl
#
# Yousef Rabah - April 13th, 2004
# DisplaySpeech.pl
# 
###############################################

use strict;

my $file_order = "/usr/local/share/sphinx3/model/lm/an4/raw_files";
my $i=0;

open (OUT, "$file_order") || die "cannot create $file_order: $!";


while (!eof($file_order)){
    $i++;

}

print "$i";

close (OUT) || die "cannot close $file_order: $!";

exit;