#! perl -s
use 5.010;
use strict;