perl -w -M-warnings=uninitialized -e print+undef