Thank you. But it does not work. Nor work similar other tricks like:

$Serial->baudrate(0+$baud_rate)

$Serial->baudrate(int($baud_rate))

$Serial->baudrate("$baud_rate")

$Serial->baudrate(eval{$baud_rate})

I don't know what it may be