perl -S scan-build %*