#!/usr/bin/perl -w

$somme = 0;

@ARGV || die "GROS NUL Il FAUT DES PARAMETRES";

foreach $n (@ARGV)
{
        $somme += $n;
}

print "******* $somme *******\n";