my $serial = tie (*SD, 'Win32::SerialPort', $serial_config);
my $serial_select = new IO::Select();
$serial_select->add(\*SD);