perl -w -