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