Select Code to Download

#!perl -w
use strict;
...
        }
        return $result;
}

perl xyz.pl 'egal("20090316","7006")'

"++++false"

#!perl -w
use strict;
...
         }
         return $result;
}

perl xyz.pl

++++true