>perl 848064_xyz.pl 'egal("20090316","7006")'


         'egal(20090316,7006)' is $param at line 10

'egal(20090316,7006)'
        Line 11 $param: |'egal(20090316,7006)'|

 At 13, $test: 'egal(20090316,7006)'

Use of uninitialized value in concatenation (.) or string at 848064_xyz.pl line 22.

++++
>