my $p = Win32::SerialPort->new( 'BROKEN_BELKIN_BS' ) or die "Error opening your stupid Belkin adapter $!\n"; $p->{'_L_BAUD'}{9600} = 9600; $p->baudrate(9600); print "Bauds " . $p->baudrate . "\n";