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