fixed syntax with perl -c
merged