sub connect
{
   if ($os =~ /Win/i)
   {
      #this only works with COM1 ? Huh?
      # my @ports_win = ('COM1');
      foreach ('COM1') #same as foreach (@ports_win){}
      {
         open_uart($_);
      } 
   }
}