Help for this page
my $PortObj = new Control::CLI (Use => $PortName);
until ($everything_works){ try; ... read the Manual; google; }