#! perl -slw
use strict;