#/usr/bin/perl

#####################################################################################
#######              linecount.pl V0.01                          #####
#######          2002 copyleft martin krung                      #####			
#######	 martin at krungkuene dot org martin at krung dot org    #####
#####################################################################################


if ( length($ARGV[0]) < 1 ){
print "\nProgram aborted : too less argumentes.\n";
print "Programm vorzeitig beendet : zuwenig Argumente.\n\n";
print "Argumente:\n\n";
print "linecount.pl input_filename \n\n";
exit;
};

# parse arguments, open files

$filename = $ARGV[0];


open (FILE,"< $filename") || die("can't open $filename: $!");


# count line

$i = 0;

while (<FILE>){
	$i++;
}

# some output

print "file $filename has $i lines \n";
print "datei $filename hat $i linien \n";