#!perl.exe -w
use strict;
use diagnostics;