#!/usr/bin/perl
use warnings;
use Term::Cap 'no strict refs';