use strict; use warnings; #### perl -c test.pl #### use diagnostics;