> perl -w tmp.pl
main::egal() called too early to check prototype at ..\tmp.pl line 3.

##</code><code>##

#my $param = 'egal("7006","7006")';
#eval print $param;

sub egal () {
};

egal("7006","7006");

##</code><code>##

> perl -w tmp.pl
Too many arguments for main::egal at ..\tmp.pl line 7, near ""7006")"
Execution of ..\tmp.pl aborted due to compilation errors.