#!/usr/bin/perl -w use strict; #### #!/usr/bin/perl -T use strict; use warnings; use diagnostics;