$obj = new Control::CLI (
<br>...
<br>[Terminal_type           => $string,]
<br>...
);