#! /opt/bin/perl -d

use diagnostics;