#!/usr/bin/perl
                                                                                
 use warnings;
 no warnings qw /once/;
 use strict;