#!/usr/bin/perl 
###############################################################################################################
# count_tool.pl
# Description: This tool count all Lines in a File beginning with 1L and writes a Mail if the count is
# over a specific Limit
# Author: Ulrich Kehder
###############################################################################################################

#--------------------------------------------------------------------------------------------------------------
# Definition of libraries and global variables
#--------------------------------------------------------------------------------------------------------------
my $VERSION = "1.0.0.0";		# versionnumber of this tool

# default libraries
use 5.008;				# perl version 5.8 is required
use strict;				# use strict conditioning
use warnings;				# output optional warnings

# default variable
my @Zeilen = ("");
$ENV{"ENV"} = "";
$ENV{"PATH"} = "/usr/bin";

###############################################################################################################
# MAIN program
###############################################################################################################


open(COUNTFILE, "</nhdata/pptoll.310") || die "Counter-Datei nicht gefunden\n";    # Open to Read or close and End Program

while(<COUNTFILE>)
 {
  push(@Zeilen,$_);
 }
close(COUNTFILE);
for(@Zeilen)
 {
  if( "01L" )
   { 
    print $_;
   }
  }