my $PortObj = new Control::CLI (Use => $PortName);

##</code><code>##

until ($everything_works){
try; 
error;
read the Manual; 
google;
}