#!/usr/bin/perl -w
use diagnostics;
use strict;
$|++;

use Data::Dumper;

__END__