#!/usr/bin/perl -w

use strict;
use Carp qw(verbose confess);
$SIG{__WARN__} = \&confess;