#!/usr/bin/perl 

use strict;
use warnings;
#use diagnostics; # optional

use Getopt::Std; ...