#!/usr/bin/perl -w

BEGIN {
  use strict;                   #Always..
  use Carp qw(verbose confess); #die verbosely, with stacktraces
  $SIG{__WARN__} = \&confess;   #die, on warnings
}