#!/usr/bin/perl -w

# version : 1.10 November 2019

exit if @ARGV == 0;
$fct = $ARGV[0];

$all_fct  = "error|plus|minus|invers";
$all_fct .= "|ip|x12|decimal|hexa|binary|mask";
$all_fct .= "|network|broadcast|nb_add|nb_net|net_all";
$all_fct .= "|range|sort|summary|included";
exit if $fct !~ /^($all_fct)$/;

shift;
use Net::Kalk;
$fct = "Net::Kalk::$fct";

$result = &$fct(@ARGV);
print $result if defined($result);
