#! perl -w
#

use strict;
use warnings;
use diagnostics;