Perl code to set a custom serial baudrate on Linux using the TCSETS2 ioctl