1: #!/usr/bin/perl 2: use strict; 3: use warnings; ...