1perl -S scan-build %*
2