#!usr/bin/perl use lib '.'; use Curtains::Control; use Bod::Config; use strict;