$Serial->{"_L_BAUD"}{$baud_rate} = $baud_rate;
$Serial->baudrate($baud_rate);