#!/usr/bin/env perl use strict; use warnings; use diagnostics; # TODO - remove in production use autodie;