#!/usr/bin/perl -w

use strict;
use warnings;

use Ernad::Common;
use Krichel::File;

## give the file
my $file=$ARGV[0] // '';
if(not $file) {
  print "I need a file argument.\n";
  exit;
}
if(not -f $file) {
  print "I can't see your file '$file'\n";
  exit;
}

my $base=&Krichel::File::load($file);

my $count=keys %$base;
print "$count\n";