#! perl -w scipt
use strict;
use warnings;