#!/usr/bin/perl -l

##</code><code>##

use 5.010; # Just to use say()