#!/usr/bin/perl -T
use warnings;
no warnings "uninitialized";