{  $|++;print "\rPort Busy ",$i++;sleep 1;
   die "Can't wait any longer\n" if ($i>=15);
}   while (($portObj = new Win32::SerialPort ($PortName, $quiet))==0);
die "Other reason for not working: $!\n" if ($portObj==undef);