exit(1) unless $nbArguments == 5; 

##</code><code>##

exit(1) unless $nbArguments == 4; 

##</code><code>##

C:\Perl> 837421.pl 1 + 3 4
number of arguments: 1 
+ 3 
+ 4 
= 8