#!/usr/local/bin/perl -w

##</code><code>##

use strict;

##</code><code>##

use warnings;
use diagnostics;